Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Ändern von Chart-Farben in Abhängigkeit der Daten
Gruppe
Diagramm
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