Habe nichts gefunden, wie das geht.
Worksheets("Tabelle1").Cells.Delete
am Anfang des Makros werden alle Zellen von Tabelle1 gelöscht.Sub CleanSheet()
Dim wks As Worksheet
Set wks = Worksheets("Tabelle1")
With wks
'Inhalte und Formate der Zellen löschen
.Cells.Clear
'Spaltenbreiten zurücksetzen
.Columns.ColumnWidth = .StandardWidth
'Zeilenhöhen zurücksetzen
.Rows.AutoFit
End With
End Sub
ThisWorkbook.Worksheets("Auswertung").Cells.Clear
ThisWorkbook.Worksheets("Auswertung").Activate
ActiveSheet.UsedRange.Clear