ich möchte meine Dateneingabe in der Textbox txt_Voll absichern. Wenn anstatt Zahlen Buchstaben oder nichts eingegeben wird, soll der Cursor wieder in die Textbox gehen und dort blinken. Aber er macht es nicht. Wo ist der fehler ?
Private Sub txt_Voll_Change()
If txt_Voll.Value = "" Or IsNumeric(txt_Voll.Value) = False Then
MsgBox "Bitte geben sie eine Zahl ein (z.B. 12,4)"
txt_Voll.SetFocus
End If
End Sub
Horst