Eine Auflistung von Zellkommentaren. Jeder Kommentar wird durch ein Comment-Objekt dargestellt.
Verwendung der Comments-Auflistung
Verwenden Sie die Comments-Eigenschaft, um die Comments-Auflistung zurückzugeben. Im folgenden Beispiel werden alle Kommentare des ersten Tabellenblattes ausgeblendet.
Set cmt = Worksheets(1).Comments For Each c In cmt c.Visible = False Next
Verwenden Sie die AddComment-Methode, um einem Bereich einen Kommentar hinzuzufügen. Im folgenden Beispiel wird der Zelle E5 des ersten Tabellenblattes ein Kommentar hinzugefügt.
With Worksheets(1).Range("e5").AddComment .Visible = False .Text "reviewed on " & Date End With
Verwenden Sie Comments(index), wobei index die Kommentarnummer ist, um einen einzelnen Kommentar aus der Comments-Auflistung zurückzugeben. Im folgenden Beispiel wird der zweite Kommentar des ersten Tabellenblattes ausgeblendet.
Worksheets(1).Comments(2).Visible = False