Office: (Office 2013) Diagramm: Achsenbeschriftsungsbereich auslesen (VBA)

Guten Morgen allerseits,

folgendes Problem habe ich in Excel:

Per VBA aktualisiere ich in einem Diagramm alle Quellen,
also in einer Schleife ActiveChart.FullSeriesCollection(i).Values = Bereich

Für die Beschriftung der x-Achse soll ebenfalls der Bereich angepasst werden.
Das klappt mit ActiveChart.FullSeriesCollection(i).XValues = Bereich
auch, jedoch muss ich vorher den Bereich auslesen, um ihn anpassen zu können.

Wenn ich auf diesen Wert eine Überwachung ausführe, erscheint (vor dem
Setzen des Bereiches) folgende Meldung:
Die Methode 'XValues' für das Objekt 'Series' ist fehlgeschlagen

Nachdem ich den (Beispiel-)Bereich gesetzt habe, werden in der Überwachung die Werte angezeigt.


Meine Frage nun:
Wie kann ich diesen Bereich in VBA ermitteln?

Um nachvollziehen zu können was ich genau suche:
Auf der Excel-Oberfläche das Diagramm anklicken, [Daten auswählen] und dann rechts "Horizontale Achsenbeschriftung (Rubrik)".

:)

 

Hi,

ich weiß nicht ob ich dich richtig verstanden habe: du willst den X-Wertebereich, also die Zelladresse auslesen? Der lässt sich aus der Datenreihenformel extrahieren

Code:

Wenn es mehrere Datenreihen mit unterschiedlichen X-Wertebereichen sind, dann in einer Schleife über alle Datenreihen und für jede einzelne Datenreihe gesondert.

 

Hallo und vielen Dank,
mit deinem Code werden die Datenbereiche für die Werte ausgelesen.

Also, ich habe zB ein Balkendiagramm, das für jeden Monat die Verkaufszahlen darstellt. Diese erhalte ich mit dem Code.

Was fehlt, ist die Beschriftung der x-Achse, in diesem Fall "Januar", "Februar" usw (diese Daten stehen auch in der Datentabelle)

 

Hi,

na die X-Werte entsprechen doch der Rubrikenbeschriftung der Horizontalachse und aus dem Zellbereich kannst du dann die Inhalte auslesen und somit die Achsenbeschriftung. Du hattest allerdings nach dem Bereich gefragt:

 

genau der Bereich, in dem "Januar", "Februar" ... stehen, soll ausgelesen werde.

In einem Diagramm stehen die Monate in Spalte D, die Zahlen in Spalte B.
Und diese Spalte B (also Bereich B2:B10) kann ich während der Laufzeit nicht auslesen.

 

Wenn die Y-Werte in Spalte B stehen und du diese auslesen willst, dann sind es also die Y-Werte und nicht die X-Werte der Datenreihe? Wie korrespondiert das nun aber damit, dass du "Januar", "Februar" erhalten willst, wenn dies aber die X-Werte sind? Also irgendwie widersprichst du dir ständig. Lade deine Mappe mit den Daten und dem Diagrmam hoch - vielleicht kann man daraus dann feststellen, was du eigentlich erreichen willst.

 

Mappe1.xlsm

Hallo,
danke für die Hilfe bisher.

Im Anhang nun eine Beispiel-Datei.
Auf einem Blatt die Daten, auf einem das Diagramm.
Die Werte des Diagramms (Durchschnitt) werden in der ersten Schleife korrekt ermittelt, die Werte der x-Achse (Datum) in der zweiten Schleife nicht.
Ich habe diese Stelle im Code mit einem STOP markiert.

 

Hi,

du verwendest ja auch nicht meinen Code zur Ermittlung des X-Wertebereichs...

So werden die Zellbereiche der X- und der Y-Werte richtig ausgelesen:

Code:

Dass für die X-Werte nur A2 ausgegeben wird ist korrekt, denn das ist in deinem Diagramm tatsächlich der Fall - schau einfach unter Daten auswählen... -> Horizontale Achsenbeschriftung nach, dort steht =Daten!$A$2


Mit dem folgenden Code lässt sich der Datenbereich des Diagramms entsprechend bis zur letzten belegten Zeile erweitern:

Code:

 

da habe ich was übersehen, vielen Dank!!

Statt die Range zu nutzen, baue ich nun die Formel zusammen:
Code:

Jetzt steht das auch richtig in .SeriesCollection(1).Formula
Im Diagramm werden die Werte dennoch nicht angezeigt!
Wenn ich manuell auf der Oberfläche im Diagramm über "Daten auswählen" nachsehe, welche Daten eingetragen sind, stehen auch alle Werte korrekt drin.
Beim Debuggen steht in dem Array ActiveChart.FullSeriesCollection(i).XValues jedoch nur der Wert für den ersten Eintrag drin, alle anderen bleiben leer...


Ich habe es mit Refresh versucht, ohne Erfolg.

Gibt es auch dazu noch eine Lösung?

 

Mein Code macht genau das was du erreichen willst - da du ihn nicht verwenden möchtest, kann ich dir leider nicht weiterhelfen.

 

im Endeffekt passiert eh das Gleiche...

Habe meinen Code bei 2 Diagrammen getestet, bei einem funktioniert es bei einem nicht