Office: (Office 2010) Datenreihen eines Diagramms per VBA ansprechen

Hallo !

Kann mir vielleicht jemand von euch erläutern, wie ich in meinem Fall bereits erzeugten datenreihen für ein Balsendiagramm wieder per VBA Code ansprechen kann?

Hier ist der relevante VBA Code:

Code:

Wie genau könnte ich jetzt in weiteren VBA Code wieder auf diese Datenreihenobjekte zugreifen?

Danke für die Unterstützung und Hilfe!

Grüße
Kossy

:)

 

Hallo Kossy,

Hier wären ein paar Beispiele:
Code:

Gruss
Romedi

 

Hi Kossy,

nach diesem Prinzip:
Code:

 

Hallo !

Vielen Dank für die Beiträge !

Gruß
Kossy

 

Hallo nochmal !

Ich habe doch einmal eine Frage zu dem Thema. Wie genau kann ich eine Datenreihe per VBA ansprechen und den Legendeneintrag dieser Datenreihe löschen. Hier ist mein erster VBA Ansatz (leider funktioniert dieser Code nicht):

Code:

Hier ist einmal der gesamte VBA Code dargestellt, in dem dieses Codesegement eingebaut wurde (es steht etwas weiter unten):

Code:

Vielleicht noch HIntergrund der ganzen Sache: Ich habe eine Liste, in der Abteilungsnamen aufgelistet sind und zu der mehrere datenreihe gehören. Nun möchte ich, dass der Name der Abteilung nur einmal in der Legende auftaucht. Bisher klappte das auch wie gewünscht, aber nur nicht mit der ersten Abteilung bzw. der ersten Datenreihe.

Danke für die Unterstützung !

Grüße
Kossy

 

Hi Kossy,

vielleicht wäre es an der Zeit, dass du mal eine Beispielmappe mit ein paar Dummydaten hochlädst - wer soll das denn alles nachbauen. Außerdem ist ein Nachbau meist anders als das Original.

 

Hallo Beverly !

Vielleicht habe ich mich auch viel zu kompilziert ausgedrückt und evtl. ist der ganze Code überhaupt nicht notwendig. Die Frage kann man vielleicht auch gang generell formulieren:

Wie genau kann ich eine bereits erzeugte Datenreihe ansprechen und deren Legeneintrag löschen?

Ich kenne bisher für das Ansprechen der Datenreihe den folgenden VBA Code:

Code:

Und für das Löschen des Legeneintrages einer Datenreihen diesen VBA Code (diesen hattest Du mir mal freundlicherweise zur Verfügung gestellt):

Code:

Wie kann man dieses nun kombinieren, dass es auch vom Compiler angenommen wird?

ich hoffe, dass mir mir noch einmal hilfst...

Danke für Deine Unterstützung.

Grüße
Kossy

 

Hi Kossy,

das Löschen auf die beschriebene Weise ist in einem völlig anderen Kontext zu sehen - es bezog sich darauf, dass im Verlaufe des Erstellens des Diagramms der Legendeneintrag der jeweils neu hinzugekommenen Datenreihe bei erfüllter Bedingung gleich im Anschluss an das Hinzufügen gelöscht wird. Dabei musste sich auf die Parent-Eigenschft der Datenreihe bezogen werden, um den betreffenden letzten (neu hinzugekommenen) Legendeneintrag auf einfache Weise ansprechen zu können - man hätte auch (völlig umständlich) eine Variable als Zähler verwenden können, die beim Löschen wieder um 1 hätte zurückgesetzt werden müssen.

Im jetzigen Fall soll offensichtlich nach Fertigstellung des Diagramms der Legendeneintrag der 1. Datenreihe gelöscht werden:
Code:

 

Hi Beverly !

Hab vielen Dank dafür, dass Du mir trotzdem nochmal geantwortet hast. Ich habe Deinen Code eben in meinem Code ingebaut und es hat funktioniert...fast jedenfalls *wink.gif* *tongue.gif*

Du hast geschrieben:
Code:

Funktioniert hat:
Code:

Das Objekt Chart hatte noch gefehlt...

Danke für die Unterstützung !

Grüße
Kossy

 

Hi Kossy,

ja, richtig erkannt, da fehlt noch das .Chart - ich wollte nur mal testen, ob du das auch alleine herausfindest *tongue.gif*

In meinem Testcode hatte ich mich in einer With-Anweisung schon auf das .Chart bezogen, beim Kopieren des Codes in den Beitrag dann aber offensichtlich nur den vorderen Teil markiert.

 

Hi Beverly !

Boah, das nehme ich Dir übel ! *wink.gif*

Ich hoffe doch, dass Du nciht den Eindruck von mir hast, dass ich nichts selbst probieren würde oder so !?

Grüße
Kossy

 

Hi Kossy,

nein, den Eindruck habe ich auf keinen Fall gewonnen - und andernfalls hättest du den Fehler ja auch nicht alleine korrigiert. *Smilie

 

Hi Beverly !

Ok, dan bin ich ja beruhigt *wink.gif*

Grüße
Kossy