Gruppe
Feature
Bereich
Bedingt
Thema
Zellen bei Minuswerten schraffieren
Problem
Wie kann ich bei der Zahleneingabe bei Minuswerten die Zelle schraffieren und die Schraffierung bei Pluswerten wieder aufheben?
Lösung
Formel für die bedingte Formatierung: =A1<0
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