Hallo Holger
so habe ich es von jedem beliebigen Tabellenblatt getestet
mein Testblatt war Tabelle3, also gegebenenfalls den Blattnamen im Code ändern
und beachte die Punkte vor Range und Cells und allen weiteren Aktionen
die das Tabellenblatt betreffen,
Sub leeren()
Dim lngErste As Long
Dim lngLetzte As Long
Dim c As Range
With Sheets("Tabelle3") 'Blattname anpassen
.Unprotect "Passwort"
.Rows(1).AutoFilter
.Columns(3).AutoFilter Field:=3, Criteria1:="="
Set c = .Columns(3).Find("")
If Not c Is Nothing Then lngErste = c.Row
lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(.Cells(lngErste, 7), .Cells(lngLetzte, 59)).ClearContents
.ShowAllData
.Rows(1).AutoFilter
.Protect "Passwort"
End With
End Sub
MfG Tom
|