Office: Zuletzt geändert von/am

Hallo liebes Team,

ich habe eine EXCEL-Datei die von mehreren Usern aufgerufen wird und ständig geändert wird. Ich würde gerne links oben ein "Zuletzt geändert von" und "Geändert am" hinzufügen.

Diese Werte sollen sich jedes mal aktualisieren wenn Änderungen in der Datei vorgenommen werden.

Da ich mich mit VBA so ziemlich null auskenne habe ich ein wenig im Internet recherchiert und folgendes zusammen bekommen:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Tabelle1").Select
Range("C2").Value = Application.UserName
Range("C3").Value = Strings.Format(Now, "DD.MM.YYYY") & " um " & Strings.Format(Now, "hh:mm") & " Uhr"
ActiveWorkbook.Save
End Sub


Wenn ich das in das "VBA-Programmierfeld (Alt+F11)" eingebe, speichere und zurück zur Datei kehre passiert nichts. In den Zellen C2/C3 ist nichts zu sehen...

Was mache ich falsch? Vielen Dank schon mal für eure Hilfe!!

Gruß

- kingdomheartsknight

:)

 

Hallo,


Versuche's mal so.

Code:

Code:

 

Moin,

falls du einmal detailliert zeilenweise die letzten Änderungen in der Datei protokollieren möchtest, dann schau mal hier nach …