heute Morgen habe ich mich nach langer Zeit wieder einmal mit Grafiken in Excel 2010, genauer gesagt PivotCharts, auseinandergesetzt. Dabei wollte ich einzelne Datenreihen über VBA in Abhängigkeit von deren Namen einfärben lassen. Das hat prinzipiell funktioniert. Bei einem fehlerhaften Lauf jedoch sind alle Datenreihen entfärbt worden. In Zuge dessen wollte ich noch eine Prüfung einbauen, daß wenn eine seltene Ausnahmekonstellation auftritt, VBA alle Datenreihen auf das Farbschema automatisch setzen soll.
Also recherchierte ich bei Google und versuchte mit dem Makrorekorder einen Anhaltspunkt für _
den entsprechenden Befehl zu bekommen. Aber vergebens. Wenn ich folgende Sequenz mit dem _ Rekorder aufzeichne: Rechtsklick => Datenreihen formatieren => Füllung => Automatisch, dann bekomme ich folgende VBA Zeile:
.Format.Fill.Visible = msoTrue
. Und diese Zeile kann es nicht sein. Nächste Möglichkeit für die Aufzeichnung: Rechtsclick => Auf Formatvorlage zurücksetzen, aber da wird nur:
ActiveChart.SeriesCollection(2).Select
aufgezeichnet.https://www.herber.de/bbs/user/81784.xlsm
Frage: Wie kann ich über VBA die Farblogik einer Datenreihe effektiv auf Automatik stellen? Wie lautet der entsprechende Befehl der sich mir auch durch Recherche und Versuch nicht offenbaren wollte?
Ich freue mich, wenn jemand die Zeit und Lust hat, sich das Problem einmal anzusehen.
Viele Grüße aus Berlin, Andreas Hanisch