Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textfeld

Forumthread: Textfeld

Textfeld
04.12.2003 10:50:53
Maximilian
Hallo Excelfreunde !

ich suche eine Lösung die dem Anwender in einem Textfeld max. nur die Eingabe von zwei Zeilen erlaubt. Multiline hat den Wert True. Da das Einfügen einer neuen Zeile mit der Eingabetaste erlaubt bleiben muss, kann ich vermutlich die Methode der max. zulässigen Zeichen nicht verwenden.

Ich bedanke mich schon im voraus für die Lösung.
LG
Maximilian

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textfeld
04.12.2003 12:43:24
Nayus
Hallo,
vielleicht hilft Dir ja folgende Lösung.
To Do:
Anpassen: Name der Userform, hier "UserForm1"
Name des Textfeldes, hier "TextBox1"

Funktion:
Unterbinden, dass meht als 2 Zeilen Text in eine Textbox eingegeben
werden können (max. 1 Zeilenumbruch erlauben)

Trigger:
KeyPress-Ereignis der Textbox

Beispiel:


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim s As String, buff As String
Dim l_pos As Integer
l_pos = 0
lf_cnt = 0
s = UserForm1.TextBox1.Text
' Nach Zeilenumbrüchen suchen
For i = 1 To Len(s)
buff = buff & Mid(s, i, 1)
If Mid(s, i, 1) = Chr(13) Then
lf_cnt = lf_cnt + 1
If lf_cnt = 2 Then
l_pos = i
Exit For
End If
End If
Next i
If l_pos > 0 Then
' 2. Zeilenumbruch gefunden, Zeilenumbruch entfernen
buff = Mid(buff, 1, Len(buff) - 1)
End If
UserForm1.TextBox1.Text = buff
End Sub


Gruß,
Nayus
Anzeige
AW: Textfeld
04.12.2003 15:40:23
Maximilian
Danke !
AW: Textfeld - Eingabelänge begrenzen
04.12.2003 12:46:32
Galenzo
Hallo,
damit kannst du die maximale Länge der Eingabe in das Textfeld begrenzen:


Private Sub TextBox1_Change()
    If Len(TextBox1.Value) > 8 Then
        TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1)
    End If
end sub

Ich hoffe, das hilft dir weiter.

mfg
Anzeige
AW: Textfeld - Eingabelänge begrenzen
04.12.2003 15:39:42
Maximilian
Danke Ja
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige