nachfolgendes Worksheet-Change funktioniert nur, wenn kein Blattschutz angelegt ist. Die Zellen der Eingabe sind bei Blattschutz nicht gesperrt (Kästchen unter Schutz ist nicht aktiviert). Da ich das Problem nicht gelöst bekomme, benötige ich eure Hilfe.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s%, m%
Dim a, t, j, ZielBereich As Range
If Target.Count > 1 Then Exit Sub
'Soll Zeit nur bei einer Eingabe in Spalte H und I wirksam werden:
If Target.Column > 7 And Target.Column < 10 Then
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 If
End Sub
Vielen Dank für jede Hilfe
Gisela