gestap. Säulendiagramm Farbe aus Zelle
25.06.2021 10:00:12
Ralf
ich wende mich mit folgendem Problem an euch.
Ich habe ein gestapeltes Säulendiagramm. Diesem möchte ich gerne die Farben aus den Zellen der zug. Daten zuweisen.
Ich habe einen vba Code gefunden der auf ein Säulendiagramm passt und dort auch sehr gut funktioniert.
Leider bekomme ich diesen Code nicht auf ein gestapeltes Säulendiagramm umgeändert, da meine VBA Kentnisse recht bescheiden sind.
Wenn ich den Code auf das gestapelte Diagramm anwende, ändert sich die erste Farbe des Diagrammbalkens aber nicht die weiteren.
Kann mir bitte jemand helfen?
Eine Beispieldatei findet ihr hier:
https://www.herber.de/bbs/user/146790.xlsm
Hier noch der Code für das Säulendiagramm der dort funktioniert:
Sub DiaFaerben()
Dim intPunkt As Integer
With ActiveSheet.ChartObjects("Diagramm 1").Chart.FullSeriesCollection(1)
For intPunkt = 1 To .Points.Count
.Points(intPunkt).Interior.Color = Cells(intPunkt + 5, 2).Interior.Color
Next intPunkt
End With
End Sub
Eventuell gibt es hier auch schon eine Lösung. Beim Durchsuchen habe ich jedoch nichts passendes gefunden das ich übernehmen konnte.Vielen Dank vorab für eure Hilfe