UserForm Zeilenubruch

Forumthread: UserForm Zeilenubruch
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: UserForm Zeilenubruch

17.06.2005 14:31:45

Gregor

Hallo zusammen
Mit folgendem Befehl fülle ich ein Textfeld einer UserForm. Der Text in der Variable "Bemerkung" ist unterschiedlich lang und kann mehrere Sätze enthalten. Wie kann ich erreichen, dass es nach 100 Zeichen einen Zeilenumbruch mit 2 Tab generiert. Ansonsten ist das kaum lesbar.


Sub txtAuszug_füllen()
txtAuszug.Text = ""
txtAuszug.Text = _
& vbNewLine & "P-RL Region" & vbTab & vbTab & P_RL_Region _
& vbNewLine & "P-KS Region" & vbTab & vbTab & P_KS_Region _
& vbNewLine & vbNewLine & "Bemerkung:" & vbTab & vbTab & Bemerkung _
& vbNewLine & vbNewLine & "Aktualisiert:" & vbTab & vbTab & Datum
End Sub

Herzlichen Dank
Gregor

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: UserForm Zeilenubruch

17.06.2005 16:35:11

Galenzo
Danke

17.06.2005 17:12:12

Gregor

AW: UserForm Zeilenubruch

17.06.2005 16:35:11

Galenzo

In der folgenden Schleife wird in einem Text jeweils nach einer bestimmten Anzahl Zeichen zwei Zeilenwechseln eingefügt
(Hierbei ist t geleich dem txtAuszug aus deiner Frage - wollte mir Schreibarbeit sparen:-)
Const CUT As Integer = 100
Dim i As Integer
For i = 1 To (Len(t) \ CUT)
t = Left(t, (i - 1) + i * CUT) & vbLf & vbLf & Right(t, Len(t) - ((i - 1) + i * CUT))
Next i
Viel Erfolg!

Danke

17.06.2005 17:12:12

Gregor

Vielen Dank Galenzo, es funktioniert bestens
Ein sonniges Wochenende wünscht dir
Gregor