Hallo,

ich möchte den Inhalt aller nicht geschützten Zellen in allen Arbeitsblättern einer Datei löschen.

Ich habe es hinbekommen den Inhalt aller nicht geschützten Zellen in dem aktiven Tabellenblatt zu löschen, nur leider bekomme ich es nicht hin, den Inhalt aller nicht geschützen Zellen in allen Tabellenblättern zu löschen.

Hoffe, jemand kann mir helfen folgendes Makro so umzuschreiben, dass das auf alle Tabellenblätter greift:

Sub loeschen()
Dim Bereich As Range
Dim Zelle As Range

Set Bereich = Sheets("Tabelle1").Range("A1:Z100")
For Each Zelle In Bereich
 If Zelle.Locked = False Then Zelle.ClearContents
Next Zelle
End Sub