Microsoft Excel

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

    

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