Uhrzeitformatierung von Zellen mit Blattschutz
03.11.2003 10:58:32
Astrid
mit Hilfe des folgenden Scriptes habe ich versucht die Zeiten ohne Doppelpunkt einzugeben. Es funktioniert auch allerdings nur solange man den Blattschutz nicht aktiviert hat und auf ein geschütztes Feld trifft. Folgende Felder sind nicht geschützt und sollen die Uhrzeitfelder sein.
D7 bis D13
E7 bis E13
G7 bis G13
H7 bis H13
D16 bis D22
E16 bis E22
G16 bis G22
H16 bis H22
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s%, m%
'Soll nur bei einer Eingabe in Spalte A wirksam werden:
If Target.Column < 1 > 1 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
mfg
Astrid