Word 2007, Text aus Tabelle ohne Absatzmarken in TextBox schreiben

Computer: Software & Programmierung Office Software
#1

Hallo,

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?

Ich würde mich über Eure Hilfe sehr freuen

#2

Hallo,

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

MfG,

ujk

#3

Hallo Ujk,

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. ?

Ich wäre Dir sehr dankbar!

MfG.
hudot

#4

Hallo,

Leider habe ich bisher keine
Möglichkeit gefunden, das Absatzsymbol " ¶" in den Code
einzusetzen. Hast Du auch dazu einen Vorschlag. ?

das Absatzendezeichen kann man durch Chr$(13) einfügen.

Dann also

If InStr(strText, Chr$(13)) > 0 Then
Replace (strText, Chr$(13), „“)

mehr unter http://www.asciitable.com/

MfG,

ujk

#5

Hallo Ujk,

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.

Liebe Grüβe,

hudot

#6

Hallo,

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.)

MfG,

ujk

#7

Ciao Ujk,

wieder einmal herzlichen Dank für Deine Mühe … leider zeigt auch der neue Code keinerlei Wirkung, die Absatzmarken verschwinden nicht.

Herzliche Grüβe,

hudot

#8

Hallo,

ein Versuch noch.

Ich habe diesen Code angepasst in einem Word-Dokument getestet, scheint zu funktionieren.

Private Sub CommandButton1_Click() ’ Datum übernehmen

Dim strText As String
Dim strText2 As String

strText2 = Chr$(13)
Selection.SelectRow
Selection.Cells(2).Select
strText = Selection.Text
If InStr(strText, strText2) > 0 Then
strText = Replace(strText, strText2, „“)
End If
Me.TextBox1.Value = strText

MfG,

ujk

#9

Hallo Ujk,

hab Deinen Code eingesetzt und … er funktioniert!!!

Ich bin überglücklich, das Löschen der Absatzmarken hat mich fast wahnsinnig gemacht und viel Zeit benötigt.

Gaaaaaaaaaaanz herzlichen Dank!

Liebe Grüβe,

hudot