Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1484to1488
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

Diagramm auswählen

Diagramm auswählen
12.04.2016 17:19:07
Daniel
Hallo Liebe Excelfreunde,
ich denke es ist eine Kleinigkeit auf die ich gerade nicht komme.
Ich kopiere immer eine Tabelle nach oben mit einem Diagramm.
Da ich das Diagramm auf die neue Tabelle beziehen will habe ich folgendes Makro
ActiveSheet.ChartObjects("Diagramm 12").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.SeriesCollection(1).Values = "=Restpunkteanalyse!$D$18:$H$18"
ActiveChart.SeriesCollection(1).XValues = "=Restpunkteanalyse!$D$9:$H$9"
Nur ist es beim nächsten kopieren ja Diagramm 13?
Kann ich das nur mit einer Schleife und einer Hilfszeile lösen die immer hochzählt?
oder gibt es auch einen Befehl der immer das "neuste Diagramm" oder das Diagramm was in bestimmten Zeilen ist oder das Diagramm was in der Tabelle am weitesten oben ist auswählen?
Gruß und Danke
Daniel

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm auswählen
12.04.2016 23:01:40
fcs
Hallo Daniel,
probiere es mal auf folgende Weise
ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.count).Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.SeriesCollection(1).Values = "=Restpunkteanalyse!$D$18:$H$18"
ActiveChart.SeriesCollection(1).XValues = "=Restpunkteanalyse!$D$9:$H$9"
oder ohne Activate/Select
With ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.count).Chart
.SeriesCollection(1).Values = "=Restpunkteanalyse!$D$18:$H$18"
.SeriesCollection(1).XValues = "=Restpunkteanalyse!$D$9:$H$9"
End With
Gruß
Franz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige