1
Excel / Antw: Office 2016: Aenderungsdatum in Zelle schreiben pro Tabellenblatt
« 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
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