Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige