Makro: Farbe einer Datenreihe anhand Bezeichnung in Legende ändern

[tgr]

Hallo zusammen,

ich bin völliger Neuling in VBA und habe daher folgendes Problem:

Ich habe ein Balkendiagramm anhand einer vorhandenen Tabelle erstellt und möchte jetzt den einzelnen Balken fixe Farben zuweisen. Da sich die Reihenfolge der Spalten, auf denen das Diagramm basiert, aber ändern kann, ist allein die Bezeichnung in der Legende ausschlaggebend. Heißt also wenn ich bspw. einen Balken habe der in der Legende "Erdbeeren" heißt, soll dieser immer rot sein, auch wenn er in der Tabelle an 5. und nicht an 1. Stelle steht.

Kann mir hier jemand sagen wie das geht?

Ich habe das Diagramm meiner Tabelle wie folgt erstellt:

Range ("B1:Z10").Select
ActiveSheet.Shapes.AddChart2(297,xlColumnStacked).Select

ActiveChart.Legend.Select
Selection.Posistion=xlRight
Application.CommandBars("Format Object").Visible=False

ActiveChart.SetElement (msoElementDataLabelCenter)
ActiveChart.PlotArea.Select
ActiveChart.SetElement (msoElementDataLabelCenter)
ActiveChart.FullSeriesCollection(1).Select
ActiveChart.FullSeriesCollection(1).Points(1).Select

..... und dann würden die Farben gesetzt.

Vielen Dank im Voraus!

Thomas