ich hoffe, dass jemand für mein folgendes Problem eine Lösung weiß.
Der folgende Code sperrt mir automatisch die Zellen nach der Eingabe einen Wertes.
Funktioniert auch super.
Jetzt möchte ich, dass dieser Code auch bei verbunbenen Zellen funktioniert
(hier bricht das Makro leider mit Fehlerhinweis ab).
Weiss jemand die Lösung?
https://www.herber.de/bbs/user/36239.xls
Gruß, Harald G.
'Aktive ungeschützte Zelle nach Eingabe sperren
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Dim z As Range
For Each z In Target
If z.Value <> "" Then
z.Locked = True 'Hier bricht das Makro bei verbundenen Zellen ab!
End If
Next z
ActiveSheet.Protect
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub