ich habe eine riesige Excel Datei in der ich auf dem ersten Blatt "Letzte änderung durch...am...."stehen haben möchte....
Wie mache ich das? So, dass ich immer sehen kann, wer die Datei wann das letzte Mal geändert hat.
Danke,
Sabine
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("Tabelle1").Range("A1") = Environ("Username")
Worksheets("Tabelle1").Range("A2") = Now
End Sub
Mit einem Rechtsklick auf einen Tabellenreiter -> Code anzeigen gelangst du in die VBA Umgebung. Suche dann links im Projektexplorer in deinem VBA-Projekt "DieseArbeitsmappe". Mache einen Doppelklick darauf und kopiere den Code in das rechte (obere) Codefenster.