If Not Then Funktion
10.12.2004 10:07:45
Oliver
Private Sub txtStd_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' Um die eingegebenen Zahlen im Zeitformat einzugeben
'(über den Nummernblock mit Komma oder Minus)
If Chr$(KeyAscii) = "," Then KeyAscii = Asc(":")
If Not NumberFormat = "h:mm" Then 'prüft, ob ein gültiger Wert eingetragen ist
MsgBox "Bitte einen gültigen Wert eingeben"
End If
End Sub