Kommentar verbergen
Erwin_Geer
ich habe ein Makro aus diesem Forum, welches im Kommentar aufzeichnet, wer wann was geändert hat:
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
Dieser Kommentar wird aber immer in der Zelle angezeigt, in der eine Zellenänderung durchgeführt wird.
Ich möchte aber, dass nicht jeder sehen kann, was im Kommentar eingetragen wird.
Meine Idee wäre, dass der Kommentar auf einem anderen Blatt hinterlegt wird, welches
a, am besten xlSheetVeryHidden ist und
b, eine Referenz auf das Ursprungsblatt mit Spalten- und Zeilenangabe hat.
Oder gibt es irgendeine andere Möglichkeit nachzuvollziehen, wer wann wo und was in einem Tabelleblatt gemacht hat?
Grüße
Erwin