Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Shapes in Abhängigkeit von Zellwerten färben

Gruppe

Change

Problem

Die Shapes in Zeile 2 sollen sich bei Werten in Zeile 1 < 0 rot, bei > 0 grün färben.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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