Office: Diagramm Bereich erweitern

Hallo,

ich hab mich bisher erfolgreich durchs Internet und auch dieses Forum gewühlt um meine Probleme zu lösen. Doch jetzt komm ich nicht mehr weiter. Auch die Funktion Makro aufzeichnen bringt mich nicht weiter.

Was ich bisher gemacht habe.
In einer Tabelle werden Werte eingetragen, durch klicken auf ein Button wird ein Makro aufgerufen.
Dann werden die Werte in eine Tabelle eingefügt. Dann in einer weiteren Tabelle werden die Zeilen runterkopiert.

Jetzt will ich, dass bei einem Diagramm, der Bereich auch um die erweiterten Zeilen verlängert wird. Also eigentlich einfach nur eine Zeile mehr.


Um mir zu helfen, braucht ihr da den kompletten Code des Makros? Wenn ja, poste ich ihn hier.

Achso es handelt sich um Excel 2003

Gruß
Wiesel6

:)

 

Moin, Wiesel,

bei einer Makroaufzeichnung werden immer Festwerte eingesetzt - es dürfte schon reichen, wenn die Zeilenzahl ermittelt und gesondert als letzte Zeile übergeben wird:

Code:

 

[Edit] Da habe ich wohl zu lange gebraucht, einen Kaffee zu holfen - Jinx war schon fleißig*wink.gif* [/Edit]

 

Danke erstmal euch beiden,

also, dein Code EarlFred hat mir besser geholfen, zum Glück war ich schnell genug und hab keinen Kaffee geholt.
Damit hatte ich es hinbekommen, die eine Zeile zu erweitert.

Nur wie passe ich diesen an, dass weitere Zeile angepasst werden und auch die Beschriftung. Außerdem will ich am Ende, das Diagramm in einer anderen Tabelle habe, wie die Daten.

Ich hab mal schnell ne Datei gemacht, wo ein paar Daten und das Diagramm drin ist. Keine Makros, da ich den Rest mit dem Kopieren und Zeilen runterziehen draußen hab. (wollte nochmal genau nachlesen, was EarlFred dazu geschrieben, geht aber nimmer. Also falls es zu wenig ist, bitte grad bescheid geben)


Edit: Anhang vergessen

Gruß
Wiesel

 

Hallo Wiesel,

naja, mein Code war nicht wirklich anders als Jinx', deshalb habe ich ihn auch wieder rausgenommen.

Die Beispieldatei hilft aber weiter, da es doch ein paar Zeilen mehr benötigt, als wir vermutet haben. Trotzdem waren wir auf dem richtigen Weg.

Code:

...könnte Dein Problem lösen.

Grüße
EarlFred

 

Klasse, das klappt perfekt!

Jetzt weiß ich auch, wie man bei Range die ermittelten Zahlen eingibt Range("A4:A" & lngLZ)
Hatte da Stunden nach Lösungen gesucht, und es über Cells gelöst.
z.b.
Code:

Also Danke nochmal, und falls es nochmal Probleme beim kompletten Code geben sollte, melde ich mich.

Für mich als VBA Noob schon *wink.gif*


Edit: Doch noch ne Frage. Geht das auch relativ einfach, dass man ne Zeile weg nimmt? Da ich noch die Option löschen hab, da werden die Zeilen gelöscht. Sorry, ist mir eben erst eingefallen, als ich mir die Hauptdatei angeschaut hab.


Gruß
Wiesel6

 

Hallo Wiesel6,

die Routine ermittelt jedesmal die letzte Zeile, wenn sie durchläuft. Wenn diese also nun "kleiner" ist als die vorige, ändert das am Code nichts (unter der Voraussetzung, dass die erste Zeile konstant bleibt)....

Grüße
EarlFred

 

Stimmt,
stand grad auf dem Schlau...


Habs getestet und läuft perfekt!!



Gruß
Wiesel6