ich möchte mir ein Makro erstellen, das über einen Button eine Tabelle schließt, das den Zwang der Blattleerung und das anschließende speichern des leeren Blattes veranlasst.
Thx Marta
Sub Makro1()
Cells.Delete Shift:=xlUp
ActiveWorkbook.Close True
End Sub
Sub weg_damit()
Cells.Delete
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1:B100").Clear
ThisWorkbook.Save
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A24:C37").ClearContents
Range("F12:G12").ClearContents
Range("I7") = 1
ThisWorkbook.Save
End Sub