hallo

ich habe ein eine Exceldateil eine Menge von Diagrammen

nun will ich von einigen (nicht alle!) die Bezügen ändern

ähm

ein Beispiel

also das Diagramme die Daten von A25 bis B50 danach die Daten A20 bis B60 abbildet

ein paar Tagen später will ich dann das er mit die Daten von a20 bis b70 zeigt

die Aufzeichnung mit dem Editor sagt mir das ich es so machen sollte

Worksheets("GROM1").Activate
    ActiveSheet.ChartObjects("Diagramm 6").Activate
     ActiveChart.SetSourceData Source:=Range("'GROM1'!$A$20:$B$60")
   Range("B21").Activate

und das 30 mal

nun wäre es mir ganz lieb wenn ich anstatt dem $B$60 eine Variable einsetze

der Vorteil wäre die Variable ändere ich nur einmal (zb von B60 auf B70)

aber nun kann ich mit Makro die Bezüge der aller gewünschen Diagramme ändern

Habt ihr Lösungsverschläge?

ich habe schon einmal den Vorschlag bekommen es über ein " ActiveSheet.ChartObjects" Befehl zu ändern, was dazu geführt hat das Excel mir alle Diagramme mit Datenmüll gefült hat , und ich sie lösche mußte

also wäre es mir sehr sehr lieb wenn wir beim ActiveChart.SetSourceData Source:=Range bleiben

alle Lösungsvorschläge die ich bisher erhalten haben haben nicht die Lösung gebracht die ich wollte, (und vielleicht habe ich in meinem Auftreten in verschieden Foren auch Leute mächtig verärgert, hmmm ja ich sollte mir öfters vor Augen halten das die ANDEREN das Wissen haben was ICH brauche, sorry an die die die Frage nun wiedererkennen)

beste Grüsse und in schöne Wocheende

der Björn

alternativ werde ich 3 bis 4 ellenlange Markos schreibe die

Worksheets("GROM1").Activate
    ActiveSheet.ChartObjects("Diagramm 6").Activate
     ActiveChart.SetSourceData Source:=Range("'GROM1'!$A$20:$B$60")
   Range("B21").Activate

in Verschiedene Varianten haben