Ein Versuch mit Workbook_BeforeClose ist mir nicht gelungen:
Private Sub Workbook_Beforeclose(Cancel As Boolean)
' Variablen für Spielbericht und Blatt in Zellen löschen
With Workbooks(sBeamer)
With .Worksheets(intAB_Beamer)
.Unprotect
.Range("Spiel").ClearContents
.Range("Blatt").ClearContents
.Protect
End With
End With
End Sub
Kann jemand helfen?
Danke & Gruß
Ged