gibt es in Excel wie in Word die Möglichkeit, in einer Zelle die letzte Änderung des Dokuments sowie den letzten Bearbeiter anzeigen zu lassen?
Danke,
Brix
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errorhandler
'Sheets(1).Unprotect "Passwort"
Application.EnableEvents = False
If Not Intersect(Target, UsedRange) Is Nothing Then
Range("a1") = "Zuletzt geändert am " & Date
Range("a2") = "Von: " & Application.UserName
End If
errorhandler:
Application.EnableEvents = True
'Sheets(1).Protect "Passwort"
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Range("a3") = "zuletzt gespeichert von " & Application.UserName
End Sub