Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1156to1160
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
Inhaltsverzeichnis

TextBox auf festgelegte Zeichenlänge prüfen

TextBox auf festgelegte Zeichenlänge prüfen
Pixeldieb
Hallo Excel-Gemeinde,
ich möchte beim Exit einer TextBox (UF) auf eine bestimmte Zeichenlänge prüfen. Und zwar muss ein alphanumericher Wert in der Länge von genau 6 Zeichen eingegeben werden. Eingegebene Buchstaben sollten dabei dann in Großbuchstaben angezeigt werden.
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2 = "" Then       'Hier müsste eigentlich auf die 6 Stellen geprüft werden
MsgBox "Bitte eine 6stellige Kennnummer eingeben"
Me.TextBox2.SetFocus
Exit Sub
End If
Ist das machbar?
Gruß Holger

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: TextBox auf festgelegte Zeichenlänge prüfen
25.05.2010 11:38:13
fcs
Hallo Holger,
hier ein Beispiel mit Prüfung auf Zeichenzahl und Umwandlung in Großbuchstaben.
zusätzlcu kannst du die Eigenschaft "MaxLength" der Textbox noch auf 6 setzen.
Gruß
Franz
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox2)  6 Then 'Hier müsste eigentlich auf die 6 Stellen geprüft werden
Cancel = True
MsgBox "Bitte eine 6stellige Kennnummer eingeben"
Else
'Eingabe in Großbuchstaben umwandeln
TextBox2 = UCase(TextBox2)
'usw.
End If
End Sub

Danke!
25.05.2010 11:51:34
Pixeldieb
Danke Franz,
es funktioniert wunderbar.
Und danke für den Hinweis mit dem MaxLength eintragen. Manchmal denkt man an die simple Sachen nicht!
Gruß Holger
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge