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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen