Laufzeitfehler 1004
12.01.2017 15:59:21
BuStue
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("C4:D30"))
If Target Is Nothing Then Exit Sub
If Len(Target.Value) = 3 And Right(Target.Value, 2) Wenn das Arbeitsblatt nicht geschützt ist, funktioniert es einwandfrei. Schütze ich das Blatt, kommt die Fehlermeldung Laufzeitfehler 1004 ...
und der Debugger markiert die Zeile Target.NumberFormat ="hh:mm" im letzten Absatz.
Wie kann das Problem gelöst werden?
Mit freundlichen Grüßen
Burghard