Sub leeren()
Dim lngErste As Long
Dim lngLetzte As Long
Dim c As Range
ActiveSheet.Unprotect "Passwort"
Rows(1).AutoFilter
ActiveSheet.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
ActiveSheet.ShowAllData
Rows(1).AutoFilter
ActiveSheet.Protect "Passwort"
End Sub