Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UserForm Zeilenubruch

UserForm Zeilenubruch
17.06.2005 12: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
Anzeige
AW: UserForm Zeilenubruch
17.06.2005 14: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 15:12:12
Gregor
Vielen Dank Galenzo, es funktioniert bestens
Ein sonniges Wochenende wünscht dir
Gregor
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige