Makro auf gesamtes Arbeitsblatt anwenden
12.11.2016 16:36:57
Ibie
ich habe 5 Excel Tabellen mit jeweils 93 Registerblättern. In diesen Blättern sind die Überschriften und Formeln blattgeschützt, und die Eingabefelder haben keinen Schutz. Nun möchte ich in allen Blättern alle ungeschützten Inhalte löschen.
Da es eine Heidenarbeit wäre, dies in 93 Blättern * 5 Dateien manuell zu machen, habe ich nach einer Makro gesucht und bin eigentlich auch fündig geworden.
Problem ist nur, dass diese Makro nur auf ein ausgewähltes Blatt angewendet wird und nicht auf die gesamte Arbeitsmappe.
Sub wegmit()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Sheets("Tabelle1").Range("A1:AA50")
For Each Zelle In Bereich
If Zelle.Locked = False Or Zelle.MergeArea.Locked = False Then Zelle.MergeArea.ClearContents
Next Zelle
End Sub