Eine Familie von Microsoft-Tabellenkalkulationsprogrammen mit Tools zum Analysieren, Darstellen und Vermitteln von Daten.
Hallo,
probiere mal:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Tabelle1").Range("A2:G2").ClearContents
End Sub
Claus