bei der Übernahme von Text aus einer Tabelle in die TextBox einer UserForm taucht immer ein Steuerzeichen am Textende auf … beim Übertragen dieses Textes in ein anderes Dokument wirbelt’s mir dann die Formatierung durcheinander. Den Text aus der Tabelle übernehme ich mit
Private Sub CommandButton3_Click() ’ Lieferant übernehmen
Selection.SelectRow
Selection.Cells(4).Select
Me.ComboBox6.Value = Selection.Text
End Sub
in die Textbox.
Kann ich hinter „= Selection.Text“ irgendwelche Parameter einsetzen, die das verhindern?
Kann ich hinter „= Selection.Text“ irgendwelche Parameter
einsetzen, die das verhindern?
Parameter wüsste ich jetzt nicht, aber Du kannst mit den String-Funktionen InStr und Replace prüfen, ob ein Zeichen in der Zeichenkette vorkommt und dieses dann ersetzen.
Etwa
Dim strText As String
strText = Selection.Text
If InStr(strText, „Hier Steuerzeichen einsetzen“) > 0 Then
Replace (strText, „Hier Steuerzeichen einsetzen“, „“)
End If
herzlichen Dank für Deinen Tipp! Leider habe ich bisher keine Möglichkeit gefunden, das Absatzsymbol " ¶" in den Code einzusetzen. Hast Du auch dazu einen Vorschlag. ?
vielen herzlichen Dank für Deine Mühe … so leid mir das auch tut, ich bin wahrscheinlich echt zu doof, den Code in’s Macro einzubinden … egal, was ich mache, es kommen immer Fehlermeldungen. So habe ich Deinen Code eingesetzt:
Private Sub CommandButton1_Click() ’ Datum übernehmen
Selection.SelectRow
Selection.Cells(2).Select
Me.TextBox1.Value = Selection.Text
Dim strText As String
strText = Selection.Text
If InStr(strText, „Chr$(13)“) > 0 Then
Replace(strText, „Chr$(13)“, „“)
End If
In der Zeile „Replace(strText, „Chr$(13)“, „“)“ wird ein „=-Zeichen“ verlangt, wenn ich es anfüge (z.B. = „“) möchte die Kiste eine „Variant-“ oder „Objekt-Variable“ auf der linken Seite der Gleichung. …
Sicherlich hast Du inzwischen bemerkt, daβ ich keine bzw. nur wenig Ahnung von der Materie habe. Ich wäre deshalb sehr dankbar, wenn Du mir noch einmal helfen könntest.
das mit dem Gleichheitszeichen war ein Fehler von mir. So müsste es gehen.
Private Sub CommandButton1_Click() ’ Datum übernehmen
Dim strText As String
Selection.SelectRow
Selection.Cells(2).Select
strText = Selection.Text
If InStr(strText, „Chr$(13)“) > 0 Then
strText = Replace(strText, „Chr$(13)“, „“)
End If
Me.TextBox1.Value = strText
(Am Ende müsste da noch ein „End Sub“ stehen, damit Word weiss, dass sas Makro zu Ende ist.)