Ich habe hier im Forum scheinbar folgende Lösung für mein Problem gefunden und wollte es mit ein wenig Anpassungen nutzen.
https://www.herber.de/forum/archiv/1244to1248/1245636_Uhrzeit_in_Textbox_ohne.html
Leider bekomme ich schon beim Debuggen die Meldung, dass Sub oder Function nicht definiert ist.
Ich habe luschis Sub in ein allgemeines Modul kopiert
Private Sub uhrzeit(ByRef theBox As MSForms.TextBox, ByVal KeyAscii As MSForms.ReturnInteger)
'Eingabebeschränkung Textbox_Uhrzeit mit autom. Doppelpunkt
'Format hh:mm
'by Josef Ehrensberger
'a little enhanced by Luschi
Dim ok As Boolean
Select Case Len(theBox)
Case 0
Select Case KeyAscii
Case 48 To 50
Case 51 To 57
'erste Ziffer 3 bis 9 --> 03: - 09:
theBox.Value = theBox.Value & "0" & Chr(KeyAscii) & ":"
KeyAscii = 0
Case Else
KeyAscii = 0
End Select
Case 1
ok = True
If Left(theBox, 1) = 2 Then
Select Case KeyAscii
Case 48 To 51
Case Else
ok = False
KeyAscii = 0
End Select
Else
Select Case KeyAscii
Case 48 To 57
Case Else
ok = False
KeyAscii = 0
End Select
End If
If ok Then
'2. Ziffer korrekt, dann ':' ranhängen
theBox.Value = theBox.Value & Chr(KeyAscii) & ":"
KeyAscii = 0
End If
Case 2
Select Case KeyAscii
Case 48 To 53, 58
Case Else
KeyAscii = 0
End Select
Case 3
If Right(theBox, 1) = ":" Then
Select Case KeyAscii
Case 48 To 53
Case Else
KeyAscii = 0
End Select
End If
Case 4
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
Case Else
KeyAscii = 0
End Select
End Sub
und dann meine TextBox "txt_ArbZBeginn" wie in dem Thread dem KeyPress Event der TextBox zugeordnet.
Private Sub txt_ArbZ_Beginn_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
uhrzeit txt_ArbZ_Beginn, KeyAscii
End Sub
Aber der Debugger bleibt bei "uhrzeit" hängen?
Warum? Kann jemand mir helfen?
Vielen Dank für jeden Tipp.
LG
Peer