Office: Diagrammpunkte ansprechen

Hallo an Alle,

ich habe folgendes Problem wo ich in VBA nicht weiterkomme:

Ich habe ein Dashboard wo ich eine Pivottabelle dynamisch durch ein Active X Steuerelement nach einem gewissne Zeitraum per hinterlegtem VBA-Code filtern lasse. Die Daten betreffen Standorte wie unten im Bild zu sehen.

Das Format des Balkendiagramms lasse ich auch per VBA bei jeder Datenaktualisierung neu erstellen, da sonst die ganze Formatierung wieder weg ist. Dies mache ich, indem ich auf die einzelnen Datenpunkte sehr statisch zugreife und sage, bspw. Daten 2 bekommen Farbe schwarz.

Nun kann es aber vorkommen, dass ich für einen Standort mal keine daten habe und der dann entsprechend fehlt. Somit kommt die ganze zugeordnete Formatierung durcheinander. Meine Idee war, zu schauen, ob in den Bezeichnungen der einzelnen Datenpunkte (also wo im Diagramm unten der Standortname zu sehen ist) der Name eines bestimmten Standorts vorkommt und wenn ja, dass der Balken obendrüber mit einer bestimmten Farbe eingefärbt wird.

Leider komme ich da an die Grenzen meines VBA-Wissens. Eventuell kann mir ja jmd von euch helfen, der fitter ist als ich *Smilie

:)

 

Hi,

dazu müsstest du deine Mappe hochladen. Farbe müssten auch irgendwo in der Tabelle vorgegeben sein.

 

Hallo,

danke für die Antwort!

Wie gesagt, ich habe noch keinen Lösungsansatz für die dynamische Farbzuweisung. Ich stelle mir das so vor, dass ich "einfach" auslesen lasse, welcher Standort auf der x-Achse als Legende unter den Datenbalken steht und je nach Standort dann dem Balken obendrüber eine vorher definierte Farbe zuweise.

Bloß derzeit heißen die Punkte ....FullSeriesCollection(1).Points(4). ...wenn aber der Standort mal nicht an 4ter Stelle ist, dann wird die flasche Farbe zugeordnet.

 

Ich löse sowas immer mit einer UDF.

 

Hallo,

erstmal vielen Dank für die Antworten!

@Beverly: wie xlph es erstellt hat ist es fast genau das, was ich meine.

@xlph: die Herangehensweise finde ich gut - hatte mir auch überlegt eine Schleife auf die Points zu legen. Das Problem an der Sache ist, dass meine Points dynamisch sind d.h., dass die Points nbicht wie bei dir immer Kategorie A, B und C heißen, sondern in Abhängigeit des Zeitfilter Kategorie A - Jul - 2016 usw.
Ich müsste also eine Schleife über die Punkte legen und die Bezeichnung irgendwie durchsuchen bspw. nach dem Wort "Gotha", um dann eine vordefinierte Farbe dem Balken der mit Gotha was zu tun hat zuweisen zu können.

Ich hoffe ihr versteht was ich meine *Smilie

 

deshalb hatte ich bereits 2 mal geschrieben: lade deine Mappe hoch.

 

hier ist sie *wink.gif*

Komme leider erst am Monatg wieder dazu hier reinzuschauen.
Danke schon mal für eure Hilfe!!!

 

Hi,

die Diagramme sollen aktualisiert werden, wenn in der Tabelle "Pivotdaten" etwas verändert wird? Folgenden Code ins Codemodul des Tabellenblattes:

Code:

 

Hallo Beverly,

vielen Dank für deine Antwort! Werde sie heute im Verlauf des Tages mal ausprobieren.

Der Auslöser des Makros soll eigentlich eine Veränderung des Zeitfilters oben sein, welcher einfach mit einem Button ausgelöst wird. Das umzuschreiben bekomme ich aber hin *Smilie

 

Hi,

noch ein Hinweis, den ich im letzten Beitrag vergessen habe: ich bin davon ausgegangen, dass in Tabelle "Diagrammdaten" die 1. Zelle direkt unterhalb des Standortnamen (für Standort A wäre das Zelle A4) mit der Füllfarbe formatiert ist, mit der der Datenpunkt formatiert werden soll. Falls du direkt die Zelle mit dem Standortnamen färben würdest, müsste diese Codezeile jeweils wie folgt abgeändert werden:

Code:

 

So habe mich gerade mal hingesetzt und das Makro implementiert.

Es funktioniert einwandfrei! Habe es auch verstanden, wäre aber sehr wahrscheinlich nicht in der Lage gewesen, es so zu schreiben!

Vielen, vielen Dank für eure Hilfe!!! Wahnsinn!