Wo wird protokolliert ?

Private Sub Worksheet_Change(ByVal Target As Range)
Const tWatchThisRange = "A1:AZ100"
Dim cmt As Comment
Dim sCmt As String
Dim rC As Range
If Intersect(Target, Range(tWatchThisRange)) Is Nothing Then Exit Sub
For Each rC In Target
sCmt = Application.UserName & " - " & _
Format(Now, "dd.mm.yy hh:mm:ss") & ": " & rC.Value
If Not rC.Comment Is Nothing Then
sCmt = rC.Comment.Text & vbLf & sCmt
rC.Comment.Delete
End If
Set cmt = rC.AddComment(sCmt)
cmt.Shape.TextFrame.AutoSize = True
Next rC
End Sub