Markieren/Löschen von verb. nicht gesch. Zellen
25.01.2007 13:59:05
verb.
habe im Archiv nachfolgendes Makro gefunden:
Sub Inhalte_löschen()
Dim c As Range, ber As Range
Set ber = ActiveSheet.[a1:z1000]
For Each c In ber
If c.Locked = False Then
c.ClearContents
End If
Next
End Sub
Dieses Makro soll die nicht geschützten Zellen suchen/löschen.
Wenn ich dieses in meiner Datei durchführen lassen erfolgt die Fehlermeldung:
"Kann Teil einer verbundenen Zelle nicht ändern".
Weiß jemand Rat?
Vielen Dank vorab und Schöne Grüße
Gesa S.
Anzeige