Wo wird protokolliert ?
Stefanglander
bitte nicht lachen, ich habe mir einen Code aufgeschrieben mit dem Änderungen einer Zelle protokolliert werden soll.
Nur weiß ich nicht wo das Protokol hingeschrieben wird.
Hier der Code:
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
Gruß
Stefan