Office: (Office 2010) Abhängige Farben im gestapelten Balkendiagramm

Guten Tag,

Ich habe eine Tabelle erstellt aus der sich ein gestapeltes Balkendiagramm generiert. Die Spaltenköpfe der Tabelle habe ich über eine bedingte Formatierung gefärbt. Diese Farbe soll nun auch im dazugehörigen Balken erscheinen. Ist das über VBA zu lösen?

Vielen Dank für eure Hilfe!

Den Anhang Ausbildungsplan.xlsm betrachten

 

Hi,

meinst du vielleicht so etwas:

Code:

Sub DatenpunkteFaerben()
    Dim lngSeries As Long
    Dim strXWerte As String
    With Worksheets("Tabelle1").ChartObjects(1).Chart
        For lngSeries = 1 To .SeriesCollection.Count
            strXWerte = Split(.SeriesCollection(lngSeries).Formula, ",")(2)
            lngFarbe = Range(strXWerte).Cells(1).Offset(-1, 0).DisplayFormat.Interior.Color
            .SeriesCollection(lngSeries).Interior.Color = lngFarbe
        Next lngSeries
    End With
End Sub

Bis später,
Karin

 

Genau das meinte ich!

Vielen, vielen Dank für die schnelle Hilfe

Viele Grüße!