wie kann ich den Autor/Nutzer, der als letzter die Datei gespeichert hat in einer Zelle erfassen?
gibts da auch was nur für "geändert"(ist vielleicht besser, da speichern ja auch 'nach' schließen der Datei passiert)
Danke im Voraus
Christian
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Cells(14, 1) = Application.UserName
' oder
If Not ActiveWorkbook.Saved Then Sheets(1).Cells(15, 1) = Application.UserName
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sheets(3).Cells(2, 1) = "am " & Date & " geändert von " & Environ("username")
Application.EnableEvents = True
End Sub