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-Key: 148880

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

Printed on: April 19, 2024 at 02:04 o'clock

Mitglied: 76109
76109 Aug 12, 2010 at 18:10:51 (UTC)
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
Member: xaumichi
xaumichi Aug 24, 2010 at 12:47:17 (UTC)
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