Office: Range um 1 zeile verschieben!!!!

\@jens

genau in die richtung geht es.
allerdings wäre es gut wenn ich mit einem Makro aus käme, dass mir bei jedem aufruf meine range so wie du beschrieben hast um 1 zeile verschiebt.

bunny

 

Und auf was soll das eine Antwort sein? Gehört das hier her?

Bei der Menge der Postings hier, muss ich zugeben, das entscheidende überblättert zu haben, nachdem ich alle Postings mehr als einmal gelesen habe...

Und das ohne große Kunst!!!

Die letzte Zeile der Tabelle erhalte ich durch
letzteZeile = Sheets("Tabelle2").UsedRange.Rows.Count

Also ergibt sich als Quelle für dein Diagramm:

ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range(Cells(letzteZeile-11, 1), Cells(letzteZeile, 2)) [...]

Damit wird in deiner Tabelle "Tabelle2" nur der unterste mit Werten gefüllte Bereich genommen. Wenn also noch etwas anderes sich darunter befindet, wird diese Varainte natürlich nicht funktionieren...

Gruß
Jens

PS: Das erste ging jetzt nicht unmittelbar an dich, bunny...

[ 30. Oktober 2002: Beitrag editiert von: #jensen ]

 

hi jens,

hab grad versucht deinen code einzubauen bekomm aber einen laufzeitfehler.
Nun ist es ja nun mal so, dass ich wohl ein super dau in der hinsicht bin, mein code ist in einem der vorhergehenden beiträgen zu finden könntset du vielleicht dein coding dort einbauen und nochmal posten.

Nur wenn ich deine hilfsbereitschaft damit nicht überreize.

Danke

[ 30. Oktober 2002: Beitrag editiert von: bunny02 ]

 

Jo klar, die Cells haben keinen Bezug!

Also hier das korrigierte!
Code:

 

Moin, bunny,

zwei Anmerkungen:

letzteZeile = Worksheets("Tabelle2").UsedRange.Rows.Count
und die allgemeinen Anmerkungen zur Verwendung von der eingesetzten "einfachen" Methode in den Links zu Ask Dr. MOF.

Und ich dachte immer, man könne lange Codezeilen für eine bessere Lesbarkeit umbrechen...

 

Hallo,

sorry Tipp-Fehler meinerseits...

Siehst, ich dachte immer, man könnte die Möglichkeit, die ein Computer einer DIN-A4 Seite voraus hat (wie zum Beispiel Scrollen von Seiten) auch nutzen...

Ausserdem ist das vielleicht nicht schön, aber für den Anfang etwas verständlicher... Ganz nebenbei hätte man ja auch ein Worksheet-Objekt anlegen können, um dann mit diesem zu arbeiten. Das hätte nochmal etliche Zeiche eingespart...!!

 

Moin, bunny,

vielleicht hilft Dir auch der Link auf den Beitrag