bin Excel Neuling und habe die Aufgabe bekommen eine tolle Liste zu erstellen mit Anlagen. Alles kein Problem, bis ich die Funktion eingebaut haben wollte. Datum letzte Änderung : ; Änderung von :
habe das auch durch Copy und Paste von einem Makro hinbekommen. Problem ist jetzt nur, wenn ich die Excel Datei einem Kollegen schicke und er diese öffnet um anschließend eine Zelle zu verändern, erscheint weiterhin mein Name und nicht der Name des Kollegen.
Hier das verwendete Makro :
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim r As Range
'->Für jede geänderte Zelle
If Target.Columns.Count > 1 Or Target.Rows.Count > 120 Then Exit Sub
For Each r In Target
Call AenderungskennungAlsKommentar(r)
Next
Set r = Nothing
End Sub
'********************************************************
Private Function AenderungskennungAlsKommentar(r As Range)
'*** für die geänderte Zelle wird im Kommentar
'*** Benutzerkennung und Änderungszeitpunkt
'*** eingetragen
'*** Ist kein Kommentar vorhanden, wird ein neuer angelegt
Dim s As String, s_user As String
'->ggf. vorhandenen Kommentar lesen
On Error Resume Next
s = r.Comment.Text
If Err.Number 0 Then
Err.Clear
'->neuen Kommentar anlegen
r.AddComment
r.Comment.Visible = False
s = ""
End If
On Error GoTo 0
'->Wenn Kommentar vorhanden, Zeilenumbruch anfügen
If s "" Then s = s & vbLf
'->Letzten Benutzer feststellen
s_user = ActiveWorkbook.BuiltinDocumentProperties(7)
'->Datum und Benutzer an Kommentar anfügen
s = s & Format(Now(), "yyyymmdd_hhnn: ") & s_user
'->Kommentar eintragen
r.Comment.Text s
End Function
Bitte um Aufklärung was ich in den Code integrieren muss, damit der jeweilige Benutzer sichtbar wird.
Vielen Dank vorab.