Textbox Prüfen auf Zahlenwert von 0 - 4
07.09.2016 15:27:13
Lutz Hoffmann
Hallo Zusammen,
ich hoffe auf eure Hilfe.
Irgendwie stehe ich gerade auf dem Schlauch.
Ich habe in einem Formular ein Feld mit der Bezeichnung C1.
In diesem möchte ich per Button überprüfen ob ein Werte von 0 bis 4 eingegeben wurde.
Private Sub CommandButton6_Click()
If CInt(C1.Value) < 0 And CInt(C1.Value) > 4 Then
MsgBox "Die eingegebenen Daten in Block A sind nicht korrekt!", vbCritical, Title:="Please _
check your input"
Else
MsgBox "Jackpot - alles i.O.", vbOKOnly, Title:="Lutz Hoffmann gratuliert"
End If
End Sub
Vielen lieben Dank für eure Hilfe im Vorraus.