Ich habe folgenden VBA-Code:
Private Sub Worksheet_Activate()
ThisWorkbook.Sheets("Tabelle1").Range("A1").Value = "Sperre"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Sheets("Tabelle1").Range("A1").ClearContents
End Sub
Das erste funktioniert wunderbar, aber leider löscht sich Zelle A1 nicht, wenn ich die Datei schließe..Ich frage dies über eine andere Datei ab.
Woran kann es liegen? Vorab vielen Dank!