Hallo
Leider gab es beim Versuch, auF deine Frage zu antworten, eine
Fehlermeldung, deshalb die Antwort auf diesem Wege:
Voraussetzung für die korrekte Funktion ist, dass für die betreffende
Textbox MultiLine und WordWrap = True ist.
Private Sub CommandButton1_Click()
If TextBox1.TextLength > 0 Then
TextBox1.Value = TextBox1.Value & vbCrLf
End If
' Zeilenumbruch nur einfügen, wenn in der Box schon etwas steht
TextBox1.Value = TextBox1.Value & "Wert für Button 1"
End Sub
Und so weiter für alle existierenden Buttons. Wenn du den Inhalt der
Textbox später in eine Excel-Tabelle einfügen willst, musst du das so
tun:
Cells(z, s).Value = Replace(TextBox1.Value, vbCrLf, vbLf)
Der Grund dafür ist, dass der Zeilenumbruch in der Zelle nur mittels
vbLf vorgenommen wird, vbCr wird als "druckbares" Zeichen behandelt
und erscheint als kleines Kästchen. Für die Zielzelle muss dann
natürlich auch der Zeilenumbruch aktiviert werden, (Format - Zellen -
Ausrichtung) oder per VBA:
Cells(z, s).WrapText = True
Gruß (und guten Rutsch!)
|