Gruppe
Grafik
Problem
Beim Wechsel des Wetes in Zelle A2 auf >5/<5 soll sich die SeriesCollection.Interior-Farbe ändern.
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