Thema: Zellen bei Minuswerten schraffieren

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

Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt