TextBox
05.03.2004 21:02:31
KlausL
ich habe folgendes Problem und hoffe auf Hilfe:
In einer Userform wird mittels Textbox eine Kundennummer abgefragt, die Eingabe wird geprüft, ob sie 10-stellig erfolgt ist.
So weit so gut, nach der Prüfung soll der Courser im Fehlerfall wieder in der TextBox Kundennummer stehen. Im Archiv habe ich leider keine Hinweise gefunden.
Wo liegt mein Fehler??
Private Sub TextBoxKDNR_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBoxKDNR.Text) < 10 Then _
MsgBox "Bitte tragen Sie die KDNR 10-stellig ein!!", _
vbCritical, "Falscher Wert"
TextBoxKDNR.SetFocus
End Sub
Vermutlich sitze ich schon zu lange vor dem Bildschirm und sehe meinen Fehler nicht.
Danke, schon mal für die Hilfe
Gruß KlausL
Anzeige