Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1312to1316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Variable Zeilenende bei Diagrammen

Variable Zeilenende bei Diagrammen
16.05.2013 11:38:06
Patrick
Hallo zusammen,
ich möchte ein Diagramm mit einem variablen Zeilenende erstellen.
Mit dem Befehl:
letztezelle = Range("A1").SpecialCells(xlCellTypeLastCell).Address
ermittle ich die letzte Zelle im passenden Format.
Mein Problem ist nun, dass ich es nicht hinbekomme die Zelle in die nächste Formel einzutragen.
Sodass wie hier im Bsp. statt $A$21303 meine Variable steht.
ActiveChart.SeriesCollection(2).XValues = "='Mittelwert (2min)'!$A$2:$A$21303"
Ich hoffe es kann mir jmd. weiterhelfen :)
Viele Grüße
Parick

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variable Zeilenende bei Diagrammen
16.05.2013 11:42:07
Klaus
Hi,
letztezelle = range(Range("A1").SpecialCells(xlCellTypeLastCell).Address).row
ActiveChart.SeriesCollection(2).XValues = "='Mittelwert (2min)'!$A$2:$A$" & letztezelle
Grüße,
Klaus M.vdT.

AW: Variable Zeilenende bei Diagrammen
16.05.2013 12:40:54
Patrick
Dankeschön, du bist mein Held des Tages;)

Danke für die Rückmeldung! owT.
16.05.2013 12:46:54
Klaus
.

Optimierung :-)
16.05.2013 12:53:36
Klaus
Hi,
das ist noch nicht optimal:
letztezelle = range(Range("A1").SpecialCells(xlCellTypeLastCell).Address).row
macht aus einer Range eine Adresse, daraus wieder eine Range, und daraus dann einen Zeilenindex. Zwei Umwandlungen weniger so:

letztezelle = Range("A1").SpecialCells(xlCellTypeLastCell).Row
ActiveChart.SeriesCollection(2).XValues = "='Mittelwert (2min)'!$A$2:$A$" & letztezelle

Wenn du "letzteZelle" noch an anderer Stelle brauchst, ist es so gut. Brauchst du es nur hier, kann auch auf den Ümweg über die Variable verzichtet werden:
ActiveChart.SeriesCollection(2).XValues = "='Mittelwert (2min)'!$A$2:$A$" & Range("A1").SpecialCells(xlCellTypeLastCell).Row
Grüße,
Klaus M.vdT.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige