Das Archiv des Excel-Forums

Textbox Multiline

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox UserForm
Bild

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


Bild

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

Bild

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

Bild

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

Bild

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

 Bild

Excel-Beispiele zum Thema "Textbox Multiline"

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