Zeilenumbruch in UserForm-TextBox

Forumthread: Zeilenumbruch in UserForm-TextBox

09.11.2003 10:55:13

Stefan

Guten Tag,

besteht die Möglichkeit in eine UserForm TextBox automatisch während der Eingabe eines Textes nach bspw.40 Zeichen einen Zeilenumbruch durchzuführen, so dass der ganze eingegebene Text für den Anwender in der TextBox sichtbar ist ?

Danke für einen Lösungsvorschlag.

Stefan

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

MultiLine = True

09.11.2003 11:37:16

Josef Ehrensberger
AW: MultiLine = True

09.11.2003 11:44:16

Hajo_Zi
AW: MultiLine = True

09.11.2003 11:57:02

Stefan
AW: Zeilenumbruch in UserForm-TextBox

09.11.2003 11:45:15

Nepumuk
AW: Zeilenumbruch in UserForm-TextBox

09.11.2003 11:59:08

Stefan

MultiLine = True

09.11.2003 11:37:16

Josef Ehrensberger

Hallo Stefan,

in den Eigenschaften der Textbox "MultiLine" auf TRUE
stellen.

Gruß Sepp

AW: MultiLine = True

09.11.2003 11:44:16

Hajo_Zi

Hallo Stefan

und folgender Code


Private Sub TextBox1_Change()
If Len(TextBox1) = 40 Then TextBox1 = TextBox1 & Chr(10)
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro

AW: MultiLine = True

09.11.2003 11:57:02

Stefan

Danke Josef und Hajo, man lernt nie aus.

AW: Zeilenumbruch in UserForm-TextBox

09.11.2003 11:45:15

Nepumuk

Hallo Stefan,
wenn der User die Taste aber nicht mehr loslässt, dann funktioniert es natürlich nicht.


Option Explicit
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(TextBox1) Mod 40 = 0 Then TextBox1 = TextBox1 & vbLf
End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk

AW: Zeilenumbruch in UserForm-TextBox

09.11.2003 11:59:08

Stefan

Danke auch an Nepumuk !!

Infobox / Tutorial

Zeilenumbruch in einer UserForm-TextBox in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne den VBA-Editor:
- Starte Excel und öffne die UserForm, in der Du die TextBox einfügen möchtest.
Füge eine TextBox hinzu:
- Klicke im VBA-Editor auf „Einfügen“ und wähle „UserForm“ aus.
- Ziehe eine TextBox aus der Toolbox auf die UserForm.
Aktiviere die MultiLine-Eigenschaft:
- Klicke auf die TextBox und stelle im Eigenschaftenfenster die „MultiLine“-Eigenschaft auf True.
Füge den VBA-Code hinzu:
- Doppelklicke auf die TextBox, um das Codefenster zu öffnen.
- Füge den folgenden Code ein, um einen Zeilenumbruch nach 40 Zeichen zu erzeugen:
```
Private Sub TextBox1_Change()
   If Len(TextBox1) = 40 Then TextBox1 = TextBox1 & Chr(10)
End Sub
```
Teste die UserForm:
- Starte die UserForm, um zu überprüfen, ob der Zeilenumbruch wie gewünscht funktioniert.

Häufige Fehler und Lösungen

Fehler: Kein Zeilenumbruch erfolgt:
- Stelle sicher, dass die „MultiLine“-Eigenschaft der TextBox auf True gesetzt ist.
Fehler: Zeilenumbruch funktioniert nur beim Loslassen der Taste:
- Verwende den folgenden Code, um sicherzustellen, dass der Zeilenumbruch auch bei gedrückter Taste funktioniert:
```
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If Len(TextBox1) Mod 40 = 0 Then TextBox1 = TextBox1 & vbLf
End Sub
```

Alternative Methoden

Verwenden von Excel VBA:
- Du kannst auch die VBA-Funktion vbCrLf anstelle von Chr(10) verwenden, um einen Zeilenumbruch einzufügen.
```
TextBox1 = TextBox1 & vbCrLf
```
Textfeld statt TextBox:
- Wenn Du ein Textfeld verwendest, kannst Du ebenfalls die „MultiLine“-Eigenschaft aktivieren, um Zeilenumbrüche zu ermöglichen.

Praktische Beispiele

Beispiel 1: Ein einfaches Notizfeld in einer UserForm:
- Erstelle eine UserForm mit einer TextBox, in der Benutzer Notizen machen können. Verwende den oben genannten Code, um sicherzustellen, dass die Notizen lesbar bleiben.
Beispiel 2: Eingabemaske für Adressdaten:
- Entwickle eine UserForm zur Eingabe von Adressdaten und setze die Zeilenumbrüche so, dass jede Zeile eine Adresse darstellt.

Tipps für Profis

Verwende die Len-Funktion:
- Nutze die Len-Funktion, um dynamisch zu bestimmen, wann ein Zeilenumbruch eingefügt werden soll. Dies kann hilfreich sein, um eine benutzerfreundliche Eingabe zu gewährleisten.
Optimiere die Benutzeroberfläche:
- Achte darauf, dass die Größe der TextBox an die erwartete Eingabe angepasst ist, um die Benutzererfahrung zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich die maximale Zeichenanzahl in einer TextBox festlegen? Du kannst die „MaxLength“-Eigenschaft der TextBox verwenden, um die maximale Anzahl an Zeichen festzulegen.

2. Funktioniert dieser Code in allen Excel-Versionen? Ja, der Code sollte in allen gängigen Excel-Versionen mit VBA-Unterstützung funktionieren. Achte jedoch darauf, dass die „MultiLine“-Eigenschaft in Excel korrekt eingestellt ist.

3. Kann ich den Zeilenumbruch anpassen? Ja, Du kannst die Anzahl der Zeichen, nach denen ein Zeilenumbruch erfolgt, im Code anpassen, indem Du die Zahl in Len(TextBox1) = 40 änderst.

Beliebteste Forumthreads (12 Monate)

Zeilenumbruch in UserForm-TextBox

Forumthread: Zeilenumbruch in UserForm-TextBox

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zeilenumbruch in einer UserForm-TextBox in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread