ungeschützte Zellen per Makro leeren
Verfasst: Di, 12.01.2010 17:25
Hallo,
ich habe mehrere aber nicht zusammenhängende Zellbereiche welche ich per makro leeren möchte.
Da ich für diese Bereiche keinen Namen definieren kann um diese über diesen markieren zu können, denke ich wäre
es am Besten das gesamte Dokument zu schützen und dann per makro alle ungeschützen Zellen zu löschen.
Habe es mit diesem Code aber erfolglos versucht:
Hat jemand eine Lösung dafür.
Danke und Gruß
ich habe mehrere aber nicht zusammenhängende Zellbereiche welche ich per makro leeren möchte.
Da ich für diese Bereiche keinen Namen definieren kann um diese über diesen markieren zu können, denke ich wäre
es am Besten das gesamte Dokument zu schützen und dann per makro alle ungeschützen Zellen zu löschen.
Habe es mit diesem Code aber erfolglos versucht:
Code: Alles auswählen
Sub Loesch()
Dim Zelle As Range
For Each Zelle In Selection
If Not Zelle.Locked Then Zelle.ClearContents
Next Zelle
End Sub
Hat jemand eine Lösung dafür.
Danke und Gruß