UserForm auf Vorgabe einstellen
10.03.2003 08:49:53
Michael123
bei Änderungen in einem Textfeld prüft folgender VB-Code, ob es sich bei der Eingabe um einen Wert handelt.
Klappt bis dahin ohne Problem.
Beim öffnen möchte ich dieses Feld jedoch auf Vorgabe "" einstellen. Hier schlägt nun aber meine Prüfung Alarm, was sie eigentlich nicht sollte.
Wie kann ich den Fehler unterbinden?
Private Sub bezirk_Change()
If Not IsNumeric(Bezirk.Text) Then
Beep
If Len(Bezirk) <= 1 Then
Bezirk = ""
Else
Bezirk = Mid(Bezirk, 1, Len(Bezirk) - 1)
End If
MsgBox "Nur Zahlen bitte", , "Falsche Eingabe"
End If
End Sub