Zelleninhalt dynamisch löschen

[ludwigm]

Hallo,
ich möchte gerne ausgehend von A2 bis zur letzten Zeile in Spalte A und bis zur letzten beschriebenen Spalte alles löschen. Mein Versuch:

Code:

Sheets("Sheet1").Range("A2").End(xlDown).End(xlToRight).ClearContents

Leider passiert nichts

[RPP63]

Moin!

Code:

Range("A2").CurrentRegion.Offset(1).ClearContents

Aber:
Handelt es sich um eine "Vorlage", die Du im Anschluss unter neuem Namen abspeichern willst?
Für so etwas besitzt Excel einen eigenen Dateityp:
https://support.microsoft.com/de-de/office/speichern-einer-arbeitsmappe-als-vorlage-58c6625a-2c0b-4446-9689-ad8baec39e1e?ui=de-de&rs=de-de&ad=de

Gruß Ralf