Sub leeren()
Dim lngErste As Long
Dim lngLetzte As Long
Dim c As Range
With Sheets("Tabelle3")
.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