Gruppe
Ereignis
Problem
Die Shapes in Zeile 2 sollen sich bei Werten in Zeile 1 < 0 rot, bei > 0 grün färben.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim shp As Shape
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
For Each shp In Shapes
If shp.TopLeftCell.Address = Target.Offset(1, 0).Address Then
Select Case Target.Value
Case Is < 0
shp.Fill.ForeColor.SchemeColor = 10
Case Is > 0
shp.Fill.ForeColor.SchemeColor = 17
Case Else
shp.Fill.ForeColor.SchemeColor = 0
End Select
End If
Next shp
End Sub