VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Ändern von Chart-Farben in Abhängigkeit der Daten

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

    


Beiträge aus dem Excel-Forum zu den Themen Grafik und Diagramm