Gruppe
Grafik
Bereich
Diagramm
Thema
Ändern von Chart-Farben in Abhängigkeit der Daten
Problem
Beim Wechsel des Wetes in Zelle A2 auf >5/<5 soll sich die SeriesCollection.Interior-Farbe ändern.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cht As Chart
Set cht = ActiveSheet.ChartObjects(1).Chart
If Range("A2").Value > 5 Then
cht.SeriesCollection(2).Interior.ColorIndex = 3
Else
cht.SeriesCollection(2).Interior.ColorIndex = 6
End If
End Sub