Multiline Textbox

• Multiline Textbox von Bernd Cramer vom 21.07.2008 09:20:42
• AW: Multiline Textbox - von harry am 25.07.2008 15:17:24
  • AW: Multiline Textbox - von Bernd Cramer am 25.07.2008 15:33:44

Betrifft: Multiline Textbox
von: Bernd Cramer

Geschrieben am: 21.07.2008 09:20:42

Hallo Daniel,
falls Du es liest. Es war verblüffend einfach. Ich habe einfach Deine 2 . Variante genommen
und
.curline+1,1 durch .curline+28,2 ersetzt.
Natürlich den Textboxnamen auch geändert und es funktioniert. Die Multilinetextbox wird jetzt schön Zeile für Zeile ausgelesen.
Noch einmal Danke für die Tipps.
Einen Nachteil hat die Sache noch, Ich kann nur die Anzahl der Zeichen für die Textbox bei der Eingabe begrenzen. Eleganter wäre es zum Beispiel über das change-Ereignis die Anzahl der Zeile mit automatischen oder erzwungenem Zeilenumbruch zu begrenzen.

Private Sub eintragen_Click()
Dim i As Long
With TextBox1
.SetFocus
For i = 1 To .TextLength
.SelStart = i
.SelLength = 1
Select Case .SelText
Case Chr(13), Chr(10)
Case Else
Cells(.CurLine + 28, 1).Value = Cells(.CurLine + 28, 1).Value & .SelText
End Select
Next
End With
End Sub

Betrifft: AW: Multiline Textbox
von: harry
Geschrieben am: 25.07.2008 15:17:24
Hi,
nutze doch einfach im Change-ereignis die Len- und die LineCount-Eigenschaften
für die Abfrage.
mfg harry
btw: wenn du Eleganz willst, schau dir die Fotos in der GEO an.

Betrifft: AW: Multiline Textbox
von: Bernd Cramer

Geschrieben am: 25.07.2008 15:33:44
Hallo Harry,
Danke für den Tip. Ich schaus mir mal an.
Gruß
Bernd

Excel-Beispiele zum Thema "Multiline Textbox"

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