Textboxen Uhrzeit formatieren
11.01.2015 19:59:33
kurt w
Guten Abend,
ich habe über Google recherchiert und die unten aufgeführten Makros gefunden, die
die UHRZEIT Darstellung zeigen.
Habe dies auf meine 1.Textbox geändert und klappt.
Wie kann ich die Formatierung für alle Textboxen hinterlegen ?
Habe jetzt schon 50 werde aber
mindestens 100 brauchen.
Kann ja nicht 100 Makros anlegen.
Würde mich freuen, wenn jemand helfen kann,
danke.
gr kurt k
Private Sub Textbox1_Change()
If BoEnter = True Then Exit Sub
If Len(TextBox1) = 2 Then
If InStr(TextBox1, ":") = 0 Then
TextBox1 = TextBox1 & ":"
End If
ElseIf Len(TextBox1) = 5 Then
''If Len(Textbox1) - Len(Application.Substitute(Textbox1, ":", "")) < 3 Then
'Textbox1 = Textbox1 & ":"
'End If
End If
End Sub
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 <> "" Then
BoEnter = True
If Right(TextBox1, 1) = ":" Then
TextBox1 = Mid(TextBox1, 1, Len(TextBox1) - 1)
End If
If IsDate(TextBox1.Text) Then
If Format(CDate(TextBox1.Value), "hh:mm") <> TextBox1 Then
MsgBox "Die Uhrzeit wurde übersetzt"
End If
TextBox1 = Format(CDate(TextBox1.Value), "hh:mm")
Else
TextBox1 = ""
Cancel = True
End If
BoEnter = False
End If
End Sub