Supportnet / Forum / Tabellenkalkulation
inTabelle die freien Zellen löschen
Frage
Hallo
meinProblem ist folgendes
ich möchte in einer Tabelle alle Daten in allen Tabellenblättern in den nicht gesperrten Zellen löschen.
Gibt es vieleicht ein Makro dazu?
Danke im vorraus
und ein frohes Fest wünscht Dieter
Antwort 1 von Beverly
Hi Dieter,
eine Möglichkeit
Bis später,
Karin
eine Möglichkeit
Sub loeschen()
Dim wsTabelle As Worksheet
Dim raZelle As Range
For Each wsTabelle In ThisWorkbook.Worksheets
For Each raZelle In wsTabelle.UsedRange
If raZelle.Locked = False Then raZelle.ClearContents
Next raZelle
Next wsTabelle
End Sub
Bis später,
Karin