Chart / Diagramm bearbeiten ohne aktivieren

Hallöchen, liebe VBA-Könner
Ich möchte gerne ein bereits erzeugtes Diagramm verändern, d.h. neue Reihen hinzufügen.
Ich habe bereits den gesamten Vorgang mit dem Excelrekorder aufgenommen und angepasst.
Allerdings wird hierbei ja immer mit aktiven Seiten usw. gearbeitet:
ActiveChart.SeriesCollection. blabla
Ich möchte aber das Diagrammblatt nicht aktivieren, sondern quasi passiv bearbeiten.
Wie spreche ich das an?
hab es so versucht :
Sheets("DiagrammName").ChartObjects(1).Chart. SeriesCollection...
oder:
Worksheets("Mappe6").ChartObjects(1).Chart. SeriesCollection...
oder
Charts("Motorkennfeld").ChartObjects(1).Chart. ...
Und irgendwie ist das wohl alles der letzte Schmuh
Hilfe!!!
Gruß Maike

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Also, ich bekomme es einfach nicht zum laufen mit der passiven variante
Im moment benutze ich deshalb alternativ folgende (funktionierende) Version mit "Activesheet"


Sub DiagrammKennlinien1()
i_y = 1
i_k = 3
i_j = 1
For i_z = 0 To 11     ' 12 neue Kennlinien einfügen
Sheets("Motorkennfeld").Activate
ActiveChart.SeriesCollection.NewSeries
With ActiveSheet.SeriesCollection(i_k)
.Name = "< " & i_kl(i_j)   ' Name aus Array auslesen, i_j von vorherigem code
' Die Daten stehen im ersten Durchlauf in Spalte A und B,
' im zweiten in D und E, im dritten in G und H usw...
' deswegen werden i_y und i_y + 1 benutzt, um diese auszuwählen
.XValues = "=Verbrauchskennlinien!R2C" & i_y & ": R40C" & i_y
.Values = "=Verbrauchskennlinien!R2C" & (i_y + 1) & ": R40C" & (i_y + 1)
End With
i_y = i_y + 3
i_j = i_j + 1
i_k = i_k + 1
Next
End Sub

Hier noch meine Versuche für passive ansteuerung:


Sub DiagrammKennlinien2()
i_y = 1
i_k = 3
i_j = 1
For i_z = 0 To 1
Sheets("Motorkennfeld").SeriesCollection.Add Source:=Sheets _
("VerbrauchsKennlinien").Range("A2: B5"), PlotBy:=xlColumns
'        Sheets("Motorkennfeld").SeriesCollection.Add
' oder:
'        Sheets("Motorkennfeld").SeriesCollection.NewSeries
'        With Sheets("Motorkennfeld")
'            .SeriesCollection(i_k).Name = "< " & i_kl(i_j)
'            .SeriesCollection(i_k).XValues = "=Verbrauchskennlinien!R2C" & i_y & ": R40C" & i_y
'            .SeriesCollection(i_k).Values = "=Verbrauchskennlinien!R2C" & (i_y + 1) & ": R40C" & (i_y + 1)
'        End With
i_y = i_y + 3
i_j = i_j + 1
i_k = i_k + 1
Next
End Sub

Irgendwie funktionieren diese Varianten nicht
Wenn mir irgendjemand (Nepumuk? ) weiterhelfen könnte wäre toll :-)
wenn nicht, dann benutze ich erstmal die Activesheet-Variante und arbeite mich in das andere später nochmal ein.
Trotzdem vielen Dank für die nette Hilfe. Und vielleicht findet ja doch noch jemand den Hauptfehler :-)
Gruß Maike

Beliebteste Forumthreads (12 Monate)

Chart / Diagramm bearbeiten ohne aktivieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread