31.08.2018, 12:32
Hallo zusammen,
ich habe folgendes Makro zum auslesen meiner Zellfarben für die Diagrammsäulen:
Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
Dim xChart As Chart
Dim I As Long, xRows As Long
Dim xRg As Range, xCell As Range
On Error Resume Next
Set xChart = ActiveSheet.ChartObjects("Diagramm 9").Chart
If xChart Is Nothing Then Exit Sub
With xChart.SeriesCollection(1)
Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
xRows = xRg.Rows.Count
Set xRg = xRg(1)
For I = 1 To xRows
.Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
Next
End With
End Sub
Siehe Beispieldatei.
Ich habe schon einiges ausprobiert - ich bekomme das Makro nicht so angepasst, dass
die Säulen die Farben aus der bedingten Farbsortierung Zellbereich G17:G23 übernehmen.
Kann mir jemand einen Tipp für die Anpassung im VBA-Code geben? Ich bekomme die
Range irgendwie nicht definiert...oder würdet ihr für die Übernahme der Farbcodierung
im Säulendiagramm einen anderen Weg wählen?
Vielen Dank im Voraus und ein schönes Wochenende.
ich habe folgendes Makro zum auslesen meiner Zellfarben für die Diagrammsäulen:
Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
Dim xChart As Chart
Dim I As Long, xRows As Long
Dim xRg As Range, xCell As Range
On Error Resume Next
Set xChart = ActiveSheet.ChartObjects("Diagramm 9").Chart
If xChart Is Nothing Then Exit Sub
With xChart.SeriesCollection(1)
Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
xRows = xRg.Rows.Count
Set xRg = xRg(1)
For I = 1 To xRows
.Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
Next
End With
End Sub
Siehe Beispieldatei.
Ich habe schon einiges ausprobiert - ich bekomme das Makro nicht so angepasst, dass
die Säulen die Farben aus der bedingten Farbsortierung Zellbereich G17:G23 übernehmen.
Kann mir jemand einen Tipp für die Anpassung im VBA-Code geben? Ich bekomme die
Range irgendwie nicht definiert...oder würdet ihr für die Übernahme der Farbcodierung
im Säulendiagramm einen anderen Weg wählen?
Vielen Dank im Voraus und ein schönes Wochenende.