vereinfachte uhrzeit-eingabe in geschützter tab
08.11.2003 11:38:39
Herbert Grom
zur vereinfachten eingabe der uhrzeit (ohne doppelpunkt) habe ich ein makro (s.u.) von jörg lorenz, welches auch bestens funktioniert. doch leider nicht in einer geschützten tabelle. kann mir jemand sagen, ob es dafür eine lösung gibt?
vielen dank schon mal im voraus.
gruß herbert.
Code eingefügt mit Syntaxhighlighter 1.16
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s%, m%
If Target.Column < 4 Or Target.Column > 5 Then Exit Sub
If Target.Row < 7 Or Target.Row > 37 Then Exit Sub
With Cells(Target.Row, Target.Column)
If .Value = "" Then Exit Sub
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then
.NumberFormat = "[hh]:mm"
If Len(.Value) > 2 Then
s = Left(.Value, Len(.Value) - 2)
m = Right(.Value, 2)
Else
s = .Value
m = 0
End If
.Value = s & ":" & m
End If
End With
End Sub