Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: CH3NO2 am Januar 23, 2018, 10:17:51 Vormittag

Titel: Office 2016: Aenderungsdatum in Zelle schreiben pro Tabellenblatt
Beitrag von: CH3NO2 am Januar 23, 2018, 10:17:51 Vormittag

Hallo allerseits,

Ich benötige ein Makro welches mir in einem Tabellenblatt das Aenderungsdatum in die Zelle A1 schreibt.

Dies funktioniert einwandfrei:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
    Tabelle1.Range("A1").Value = Format(Now, "dd.MM.yyyy hh:mm:ss")
Application.EnableEvents = True
End Sub

Nun möchte ich aber dies in einer Datei mit mehreren Tabellenblätter, das selbe wie oben beschrieben
einfach auch für Tabelle2 bis Tabelle10. Für jedes Tabellenblatt sein eigenes Aenderungsdatum.

Wie muss ich da vorgehen?

Gruss Martin

Titel: Antw: Office 2016: Aenderungsdatum in Zelle schreiben pro Tabellenblatt
Beitrag von: CH3NO2 am Januar 23, 2018, 13:24:20 Nachmittag

Habs gefunden hier die Lösung:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sh.Range("A1").Value = Format(Now, "dd.MM.yyyy hh:mm:ss")
Application.EnableEvents = True
End Sub

Schönen Tag noch
Gruss Martin