Hallo,

wenn du Extras - Änderungen nachverfolgen - Änderungen hervorheben aktivierst, werden alle Änderungen der Arbeitsmappe entsprechend deinen Einstellungen protokolliert.

Gruß

M.O.

Hallo Menikmati,

nachfolgend VBA-Code, die Dir bei Änderung in einer Zelle in der gerade markierten Zelle einen Kommentar mit Benutzernamen und Uhrzeit einfügt.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

[b]Option Explicit

Declare Function GetUserName Lib "advapi32.dll" _
  Alias "GetUserNameA" (ByVal lpBuffer As String, _
  nSize As Long) As Long

Public Function GetBenutzer() As String
Dim LoginName As String
Dim Result As Long
LoginName = Space$(256)
Result = GetUserName(LoginName, Len(LoginName))

If InStr(LoginName, Chr$(0)) > 0 Then _
LoginName = Left$(LoginName, InStr(LoginName, Chr$(0)) - 1)
  
GetBenutzer = LoginName
End Function[/b]

-------------------------------------------------------------------------------------
Kopiere nachfolgenden Code in das VBA-Projekt des Tabellenblatts, in dem die Kommentare eingefügt werden sollen.
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

[b]Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells <> "" Then
With Target.Cells
On Error Resume Next
.AddComment
On Error GoTo 0
.Comment.Visible = False
.Comment.Text Text:="Änderung: " & Format(Now, "hh:mm:ss") & Chr(10) & _
                      "geändert durch: " & GetBenutzer()
End With
End If
End Sub
[/b]

Ich hoffe, Du kommst klar.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 & 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Super !!!Danke genau was ich gesucht habe!!!!!

In einer halben Stunde eine glücklich machende, nicht unkomplizierte VBA-Lösung aus dem Hut zu zaubern ist absolut Spitze.
Ich bin beeindruckt.