xaumichi
Goto Top

Textboxformat nur hhmm

Hallo!

Wie kann ich es realisieren, dass man in einer Textbox nur Zeiten im Format hh:mm eingeben kann und sonst eine Fehlermeldung kommt?

Lg Mike

Content-ID: 148880

Url: https://administrator.de/contentid/148880

Ausgedruckt am: 22.11.2024 um 20:11 Uhr

76109
76109 12.08.2010 um 20:10:51 Uhr
Goto Top
Hallo Mike!

Irgendwas in der Art:
Sub Test()
    Dim TextBox As String
    
    TextBox = "7:1"  
    
    If IsDate(TextBox) = False Then
        MsgBox "False"  
    Else
        TextBox = Format(TextBox, "hh:mm")  
        MsgBox "True: " & TextBox   
    End If
End Sub

Gruß Dieter
xaumichi
xaumichi 24.08.2010 um 14:47:17 Uhr
Goto Top
Hat super funktioniert!
Danke schön!

Lg Mike

[EDIT:]
eine kleine Sachen gäbe es noch.
Auf diese Weise kann ich nun nur Zeiten bis max. 23:59 eingeben.
Gäbe es eine möglichkeit, die zeit auf [hh]:mm zu erweitern?

Lg Mike

EDIT:
So, habs jetzt so gemacht und funktioniert super:

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim TextBoxÜP As String
    
    TextBox = TextBox5.Value
    
    If Not TextBox Like "##:[0-5]#" Then  
        MsgBox "Eingabeformat als hh:mm"  
        TextBox5.Value = ""  
    End If
End Sub

Lg Mike