Gruppe
Allgemein
Problem
Wie kann ich die Zellen eines ausgewählten Bereiches überprüfen, ob sie einen Kommentar enthalten und wenn ja, diesen ändern?
ClassModule: Tabelle1
Private Sub cmdComment_Click()
Dim rng As Range
For Each rng In Selection
If Not rng.Comment Is Nothing Then
rng.NoteText "Hallo!"
End If
Next rng
End Sub