Sub Löschen()
activesheet.unprotect password:="xxx"
Range("D13:HG71").ClearContents
activesheet.protect password:="xxx"
End Sub
Bert
AW: Blattschutz
Andreas
Hallo Bert
Super es klappt!
Dann noch was habe auch in der Tabelle DropDownfelder wo der Inhalt auch gelöscht werden müsste!
Wie mache ich das?
Gruß Andreas