ich habe eine Tabellenblatt mit mehreren Diagrammen (Verbunddiagramme mit gestapelten Balken und einer Linie) und möchte die Farben der einzelnen Balken farblich anhand einer Zelle gestalten.
Beispiel:
3 Datenreihen (Daten aus den Zeilen C3 ff. & C4 ff. & C5 ff.)
Ich möchte in der Zelle C1 die Farbe für den Balken C3 definieren usw.
Im Internet habe ich folgendes gefunden was leider nicht ganz funktioniert:
Sub CellColorsToChart()
'Updateby Extendoffice
Dim xChart As Chart
Dim I As Long, J As Long
Dim xRowsOrCols As Long, xSCount As Long
Dim xRg As Range, xCell As Range
On Error Resume Next
Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
If xChart Is Nothing Then Exit Sub
xSCount = xChart.SeriesCollection.Count
For I = 1 To xSCount
J = 1
With xChart.SeriesCollection(I)
Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
If xSCount > 4 Then
xRowsOrCols = xRg.Columns.Count
Else
xRowsOrCols = xRg.Rows.Count
End If
For Each xCell In xRg
.Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
.Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
J = J + 1
Next
End With
Next
End Sub