Gruppe
Feature
Problem
Wie kann ich bei der Zahleneingabe bei Minuswerten die Zelle schraffieren und die Schraffierung bei Pluswerten wieder aufheben?
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