Doppelpunkt prüfen
12.10.2015 08:57:50
thomas
mit dem unterstehenden Macro kann ich eine Fehleingabe im Textfeld weitestgehend ausschließen. Mein Endziel soll sein das nur Stunden eingaben im Format [hh]:mm
erlaubt sein soll.
Das beste was ich bisher gefunden habe steht unten. Das was ich gern noch mit einbauen möchte ist wenn jemand ein punkt oder Komma eingibt das dies automatisch durch ein : ersetzt wird. Richtig Cool wäre auch die eingabe von buchstaben komplett zu unterbinden.
Hat jemand eine Idee?
liebe grüsse Thomas
Private Sub TextBox1_AfterUpdate()
Dim str As String
str = TextBox1.Value
If Len(str) 5 Or Mid(str, 3, 1) ":" Or _
Val(Right(str, 2)) > 59 Or Val(Left(str, 2)) > 99 Or _
Not IsNumeric(Left(str, 1)) Or Not IsNumeric(Mid(str, 2, 1)) Or Not IsNumeric(Mid(str, _
4, 1)) Or Not IsNumeric(Right(str, 1)) Then
MsgBox "Ungültige Eingabe"
TextBox1.Value = "00:00"
End If
End Sub