Hallo,
ich habe eine Excelmappe mit 5 Tabellenblättern.
Sobald irgendwo in der Mappe irgendeine Zelle geändert worden ist, möchte ich automatisch auf dem Tabellenblatt "Übersicht" (tabelle1) die Zelle "S1" mit dem Tagesdatum versehen bekommen, so dass für jeden nachvollziehbar ist, wann die Mappe zuletzt bearbeitet wurde.
Dazu habe ich folgenden Code:
Private Sub Aktuelles_Datum_nach_bearbeitung(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = True
Sheet("Übersicht").Range("s1").Value = Heute()
Application.EnableEvents = False
End Sub
Der Code ist in "Arbeitsmappe" eingefügt.
Wo ist der Fehler? Kann mir jemand helfen?
Grüße
Mia
|