Wenn Kreterium nicht erfüllt zurück zur Eingabe
07.01.2005 12:23:08
Sascha
Ich habe eine Userform mit Textbox und Frage die Postleitzahl ab. beim verlassen der Textbox wird geschaut, ob dies wirklich eine 5-stellige Zahl zwischen 0...99999 ist. Das funktioniert soweit so gut, doch wenn das nicht der Fall ist, soll der Inhalt der Textbox geleert werden und zur erneuten Eingabe in die Textbox der Curser gesetzt werden. Leider kommt bei mir bei Nichterfüllung der Eingabe Postleitzahl zwei mal hintereinander die Fehlermeldung und das nervt irgendwie, wie kann man das besser machen?
Ich hab's so gemacht aber wie gesagt:
If TextBox5.Value >=0 And TextBox5.value [Kostenvoranschlag!A7] = TextBox5.Text
Else
TextBox5.Value = ""
MsgBox ("Hier bitte nur die PLZ eintragen!"), vbcritical + vbokonly, "Fehler"
End If
Gruß
Sascha