hier mal ein kniffliges Problem.
folgendes Makro steigt bei verbunden Zellen (z.B. A1+B1 sind miteinander verbunden) mit der Fehlermeldung "Die Locked Eigenschaft des Range Objekts kann nicht festgelegt werden" aus. Es ist anscheinend so, das verbundene Zellen nicht über diese Routine richtig ausgewählt werden. Wer kann mir helfen??
Gruß Dieter
Sub Makro1()
Dim zelle As Range
Dim x As Integer
For x = 1 To ThisWorkbook.Worksheets.Count
MsgBox (x)
For Each zelle In Sheets(x).UsedRange
If zelle.Interior.ColorIndex = 36 Then
zelle.Locked = False
Else
zelle.Locked = True
End If
Next
Next x
End Sub