prüfen
25.08.2006 17:51:10
Massimo
möchte in einer combobox die eingabe überprüfen
> es muss eine zahl sein und die zahl zwischen 20000 und 21000 liegn
folgendes habe ich probiert, sobald ich z.b. mit 2 beginne kommt bereits die meldung ""Geben Sie eine Zahl grösser 19999!".
wie kann ich das umgehen das er wartet bis die eingabe fertig ist?
Private Sub a_nummer_Change()
If Len(a_nummer.Text) = 0 Then Exit Sub
If Not IsNumeric(a_nummer.Text) Then
MsgBox "Sie mussen einen numerischen Wert eingeben!"
Cancel = True
ElseIf IsNumeric(a_nummer.Text) <= 20000 Then
MsgBox "Geben Sie eine Zahl grösser 19999!"
Cancel = True
End If
End Sub
danke für die hilfe
Massimo