Office: Excel Diagramm Bezug mit VBA ändern

Hallo Gemeinde,

habe folgendes Problem:
Ich habe 2 Tabellenblätter (1X "Preisverlauf", 1X "Diagramm", welches 2 Diagramme mit je 2 Reihen enthält).

Nun wird durch die abarbeitung des Quellcodes immer wieder der Bezug gelöscht und muss manuell neu gesetzt werden. Das ist jedoch auf Dauer einfach zu umständlich.
Nun habe ich versucht mit dem Makro - Rekorder die Änderung aufzuzeichen, er bleibt aber immer stehen bei:
ActiveChart.SeriesCollection(1).XValues = "=Preisverlauf!R9C10:R1000C10"

Die Änderung soll folgendermaßen aussehen (IMMER gleich):
Diagramm1 / Reihe 1: X = J9 - J1000 Y = L9 - L1000
Diagramm1 / Reihe 2: X = O9 - O1000 Y = N9 - N1000
Diagramm2 / Reihe1: X = T9 - T1000 Y = U9 - U1000
Diagramm2 / Reihe2: X = AB9 - AB1000 Y = AC9 - AC1000

Aufgezeichnet hat der Makrorekorder:
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "=Preisverlauf!R9C10:R1000C10"
ActiveChart.SeriesCollection(1).Values = "=Preisverlauf!R9C12:R1000C12"

(R und C Wert zum testen geändert)
Er bleibt immer bei XValues hängen (Fehler 1004)
ausgelöst soll die Änderung vom Sheet "Preisverlauf"; aber hänge schon am Aktualisieren aus Sheet "Diagramm".

Wie kann ich das so ändern, das der Quellcode funktioniert ?

Danke euch schon im vorraus *wink.gif*

MFG
Symax

:)

 

Hi,

hast du es schon mal so versucht:
Code:

 

Hallo Beverly,

danke für deinen Tipp.
Habe nach der Mittagspause das ganze nochmals mit dem Makro-Rekorder versucht, jetzt hats gepasst.

Jetziger FUNKTIONIERENDER Quellcode:

Code:

 

Hi,

in VBA kann zu 99% auf Select und Activate verzichtet werden (wie in meinem Beispiel) - das steigert die Performance des Codes.

Möglicherweis kann man das Ganze ja auch ohne VBA lösen, falls es darum geht, dass sich der Wertebereich vorhandener Datenreihen dynamisch erweitern soll in Abhängigkeit von der Anzahl der vorhandenen Werte. Das lässt sich mit der Funktion BEREICH.VERSCHIEBEN() realisieren - Lösungsmöglichkeiten dazu findest du auf meiner HP, Seite "Diagramme" im Beispiel Dynamisches Diagramm1

 

Hallo Beverly,

hab den Fehler ausgemacht.
Der Fehler tritt immer dann auf, wenn die zu referenzierenden Felder leer sind.

In dem Diagramm (1) sind 2 linien drinnen.
Linie 1 gibt es immer.

Linie 2 gibt es aber nicht immer Daten dazu, dann sind die Felder leer. Wenn ich das in Excel manuell Referenziere, macht EXCEL das ohne schwierigkeiten. Wenn die Felder aber leer sind, hängt er IMMER am Quellcode.
Habe es mit MEINEM und DEINEM (Ohne Select) probiert, der Fehler tritt immer auf bei
SeriesCollection(1).XValues = Worksheets("Preisverlauf").Range("J9:J1000")
wenn in J9 (-J1000) nichts drinsteht.

gibt es da auch eine Lösung für ?
MFG
Symax

 

Hi,

das hattest du nicht geschrieben, dass es auch vorkommen kann, dass keine Werte vorhanden sind. Das sollte helfen:
Code:

 

Hallo Beverly

danke, so funktionierts perfekt *wink.gif*
Excel meldet zwar öfters "Fehlerhafter Bezug", aber Diagramm stimmt trotzdem. Gibts einfach die Anweisung das zu ignorieren *biggrin.gif*

MFG
Symax

 

Hi,

vielleicht wäre es günstig, wenn du deine Arbeitsmappe mal hochladen würdest. Hilfreich wäre auch zu wissen, welche Office-Version du verwendest. Außerdem - wann tritt der Fehler auf und welche Codezeile wird markiert?

 

Servus,
ich habe nahezu das gleiche Problem. Ich schilder kurz mein Problem:

Einem von Hand erstelltem ("gestapeltem Balken-")Diagramm soll mittels VBA ein neuer Datenbereich aus einer Liste zugewiesen werden. Liste & Diagramm liegen auf einem Sheet.
Der Stolperstein ist, dass aus der Liste nicht eine zusammenhängende Range den Datenbereich bildet, sondern je nach User-Selektion z.B. Zeile 1, Zeile 4 und Zeile 20 (jedoch maximal nur 3 Zeilen).
Die Liste hat 3 Spalten (S1 die Achsenbeschriftungen)

Mit dem Makrorekorder bekomme ich den selben (nicht funktionierenden) Code.

Ich habe mittels MsgBox immer wieder die nachfolgenden Befehle anzeigen lassen und sie sind exakt identisch mit der "manuellen" Variante über den Diagramm-Assi

Hat jemand eine Idee warum ich stets in der Zeile .SeriesCollection(1).XValues=...... den Fehler bekomme: "Anwendungs- oder objektdefinierter Fehler"?


Code:

Viele Grüße
-Thomas

 

Hi Thomas,

da würde ich dir genau wie dem anderen User empfehlen: lade doch deine Arbeitsmappe mal hoch. Ein Nachbau ist nicht das Original und was im Nachbau funktioniert muss nicht unbedingt auch im Original funktionieren.

 

Hi Beverly,
vielen Dank, dass du dir das anschaust; ich bin allein absolut am Verzweifeln..

Ich habe das "Diagramm 3" eben vor dem Speichern manuell auf die "richtige" Datenquelle geändert. Mit Klick auf "Anpassung ausführen wird diese wieder geändert.

VG
-Thomas

 

Hi Thomas,

versuche es mal mit diesem Code:
Code:

Activate eleminiert, Semikolon in Komma geändert und Tabellenname vor Cells geschrieben, damit der Bezug zum richtigen Tabellenblatt entsteht.

 

Also erschien der Fehler wegen dem Semikolon? Da wäre ich nie drauf gekommen, eben weil genau diese Schreibweise aus dem Rekorder kam *frown.gif*

ich ändere geschwind den Code um und melde mich nochmal

Danke schonmal für deine Hilfe!

 

Vielen Dank Beverly!
Nun funktioniert es tadellos!
Eben habe ich gesehen, dass du auf deiner Homepage am 18.03.07 zu diesem Problem ein Beispiel veröffentlich hast *rolleyes.gif* jetzt weiß ich, wo ich nächstes mal nachschlagen werde

Viele Grüße
-Thomas