Textbox Multiline

• Textbox Multiline von Bernd Cramer vom 06.08.2008 08:53:03
• AW: Textbox Multiline - von Herby am 06.08.2008 09:13:16
  • AW: Textbox Multiline - von Bernd Cramer am 06.08.2008 09:31:24
  • AW: Textbox Multiline - von Daniel am 06.08.2008 10:48:22
    • Schöne Lösung !! - von Herby am 06.08.2008 11:14:06

Betrifft: Textbox Multiline
von: Bernd Cramer

Geschrieben am: 06.08.2008 08:53:03

Hallo,
ich beschäftige mich mit folgendem Problem:
In eine MultilineTextbox werden Daten eingeben. Ich möchte aber die Zahl der zeilen auf 6 Zeilen begrenzen. In der jetzigen Variante wird men bei der Einagbe gewarnt, dass die 6 . Zeile erreicht ist. man kann nach der Warnung noch weiter ausfüllen, das diese Zeile auch gefüllt ist bzw. kein Text einfach abgetrennt wird. Aber daurch wird es wieder möglich auch die 7. u.ff. Zeilen zu beschreiben. Das ist aber absolut nicht gewünscht. Mein Problem ist: Wie kann ich dies verhindern. Vielleicht hat jemand einen Tip für mich.

Private Sub Tbgrund1_Change()
With Me
If linie = False Then
If .Tbgrund1.LineCount = 6 Then
MsgBox " Bitte Eingabe beenden! Maximale Anzahl der Zeilen ist erreicht."
linie = True
End If
End If
End With
End Sub

Betrifft: AW: Textbox Multiline
von: Herby
Geschrieben am: 06.08.2008 09:13:16
Hallo Bernd,
wenn du die Ändern-Eigenschaft der Textbox auf Falsch setzt,
nachdem die 6. Zeile geschrieben wurde,
dann kann man nichts mehr eingeben:
TextBox1.Enabled = False
Ist das eine Lösung ?
Viele Grüße
Herby

Betrifft: AW: Textbox Multiline
von: Bernd Cramer

Geschrieben am: 06.08.2008 09:31:24
Hallo Herby
erst einmal Danke
Im Prinzip ja.
Die Meldung kommt aber wenn das erste Zeichen in die 6. Zeile geschrieben wird. Ich muss also noch irgenwie das Ende der 6. Zeile erkennen. Danach kann man ja die Textbox auf False setzen. Ist die Textbox dann beim nächsten Aufruf der Userform wieder True?
Gruß
Bernd

Betrifft: AW: Textbox Multiline
von: Daniel
Geschrieben am: 06.08.2008 10:48:22
Hi
das Enablen der Textbox hätte doch den Nachteil, daß der Anwender keine Möglichkeit mehr hat, seinen Text zu kürzen, das ist sicherlich auch nicht das, was du willst.
du kannst mit folgendem Code die weiter Eingabe von Text unterbinden, sobald eine bestimmte Zeilenzahl überschritten wird, trotzdem ist es dem Anwender weiterhin möglich, text zu löschen und die Eingabe zu kürzen:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1.LineCount > 5 Then KeyAscii = 0
End Sub

Gruß, Daniel

Betrifft: Schöne Lösung !!
von: Herby

Geschrieben am: 06.08.2008 11:14:06
Hallo Daniel,
ich finde deine Lösung super !
Viele Grüße
Herby

Excel-Beispiele zum Thema "Textbox Multiline"

Text aus Textbox in Variable		Namen von TextBoxes hochzählen
Text aus Textbox in Zellen aufteilen		Nichtnumerische Eingaben in TextBox verhindern
Text aus UserForm-Textbox in Variable einlesen		Nur Buchstaben in eine UserForm-TextBox
TextBoxes- und Label-Werte in Abhängigkeit verändern		Nur AJM in TextBox akzeptieren und Anzahl zählen
Eingabelänge in TextBox begrenzen und Werte aus Liste übernehmen		Artikel aus Auswahltextbox in Sammeltextbox verschieben
Bei Doppelklick Textbox mit Text einfügen		Umwandlung eines TextBox-Wertes in eine Zahl
Wert in UserForm-TextBox eintragen und selektieren		Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen
Mit TextBox-Werten in UserForm rechnen		Werte aus UserForm-TextBox in bestimmten Formate übertragen
UserForm-TextBoxes ein- und ausblenden		Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen
Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden		Werte aus UserForm-TextBox und aus Tabelle gerundet anzeigen
In einer UserForm-TextBox die Eingabe von Sonderzeichen verhindern		Bestimmte Zeichen in einer UserForm-TextBox markieren
Textvariable in eine UserForm-TextBox eintragen		UserForm-TextBox-Werte über ScrollBar einlesen
Wert aus Zelle in Tabellenblatt-Textbox eintragen		TextBox in Abhängigkeit einer ComboBox-Auswahl füllen
Werte zweiter UserForm-TextBoxes multiplizieren		TextBox-Eingaben im Format TTMMJJ in gültiges Datum umwandeln
Text aus UserForm-TextBox drucken		Tabulator in UserForm-TextBox simulieren
UserForm-TextBox-Werte einer ListBox hinzufügen		UserForm-TextBox-Werte auf Numeric prüfen und in Tabelle eintragen
Text aus UserForm-TextBox in Tabelle suchen		Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen
Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren		Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen
Arbeitsmappe schliessen, wenn kein Eintrag in TextBox erfolgt		Plausibilistätsprüfung bei Datum&Zeit-Eingaben in UserForm-TextBox
Wert aus UserForm-TextBox suchen und Fundstelle kopieren		Tabellenblatt-TextBox-Wete in Abhängigkeit zu Drehfeld
Eingabebegrenzungen für TextBoxes		Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes
Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen		Focus und Selection zwischen zwei TextBoxes wechseln
Wert aus ComboBox in TextBox, dann in Tabelle suchen		Datumreihe aus TextBox-Einträgen generieren
Eingetragenen Wert in TextBox speichern		Eigene Klasse für UserForm-TextBoxes bilden
Markierung einer Datumsreihe gem. UserForm-TextBoxes		Datum aus TextBox an erste frei Stelle eintragen