uhrzeit-problem
09.05.2006 11:17:41
manuela
damit meine arbeitszeitkontrolle einfacher wird und ich die zahlen in stunden und minuten erfassen kann, habe ich meine dateien mit untenstehendem code (hier im forum gefunden - tolle sache) optimiert. wenn jemand um 15 uhr arbeiten kommt, muss ich nur 15 eingeben und erhalte 15:00 (bzw. 1515 für 15:15 usw.). leider funktioniert das mit den zahlen zwischen mitternacht und 1 uhr früh nicht. 0 wird noch korrekt auf 0:00 gesetzt, ebenso 1 auf 1:00. bei der eingabe von 030 wird aber 6:00 angzeigt, bei 045 21:00 und bei 015 15:00. die zellen sind als h:mm formatiert. ganz herzlichen dank für eure hilfe.
manuela
Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Worksheet
If Range(Target.Address).NumberFormat = "h:mm" Then
If Len(Target.Value) = 4 Then Target.Value = Mid$(Target.Value, 1, 2) & ":" & Mid$(Target.Value, 3, 2)
If Len(Target.Value) = 3 Then Target.Value = Mid$(Target.Value, 1, 1) & ":" & Mid$(Target.Value, 2, 2)
If Len(Target.Value) = 2 Then Target.Value = Mid$(Target.Value, 1, 2) & ":00"
If Len(Target.Value) = 1 Then Target.Value = Mid$(Target.Value, 1, 1) & ":00"
End If
End With
Application.EnableEvents = True
End Sub