den nachfolgenden Code habe ich hier im Forum vor längerer Zeit gefunden
(Ich glaube von J.E. )
Es handelt sich um eine Eingabenbeschränkung und Darstellung von 4 Ziffern
als hh:mm in einer TextBox.
Gefällt mir ausgesprochen gut, möchte ich aber nicht mehrfach in verschiedenen
UF in einem Projekt haben.
Nun wollte ich eine Funktion basteln, bekomme die TextBox aber nicht als Objekt an die Funktion überstellt.
Geht das überhaupt oder muß ich dafür eine Klasse einrichten ?
Danke und Gruß
Ingo
Private Sub tbo_BisUhrzeit_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Uhrzeit bis
'Eingabebeschränkung Textbox_Uhrzeit mit autom. Doppelpunkt
'Format hh:mm
Select Case Len(tbo_BisUhrzeit)
Case 0
Select Case KeyAscii
Case 48 To 50
Case Else
KeyAscii = 0
End Select
Case 1
If Left(tbo_BisUhrzeit, 1) = 2 Then
Select Case KeyAscii
Case 48 To 51
Case Else
KeyAscii = 0
End Select
Else
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End If
Case 2
Select Case KeyAscii
Case 48 To 53, 58
If KeyAscii <> 58 Then tbo_BisUhrzeit = tbo_BisUhrzeit & ":"
Case Else
KeyAscii = 0
End Select
Case 3
If Right(tbo_BisUhrzeit, 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