Moin zusammen,

ich habe ein Makro, mit dem ich Diagramme mit jeweils drei Datenreihen zeichnen lasse. Nun möchte ich nachdem das gezeichnet ist, über eine MsgBox entscheiden lassen, ob noch eine vierte Datenreihe eingezeichnet werden soll. Ich weiß nicht, wie ich das richtige Diagramm adressiere.

Das hier ist der Ausschnitt aus dem Code, in dem die ersten Diagramme erstellet werden ( die Diagramm beziehen sich immer auf 36 Zeilen, wobei jeweils 12 eine Datenreihe darstellen - insgesamt werden mit der Schleife etwa 200 Diagramme erstellt.)

For i = lngAb To lr Step 36
With ActiveSheet
l = .Cells(i, "S:S").Left                       'wird rechts neben Spalte S plaziert
t = .Cells(i, "S:S").Top                        'in der obersten Zelle des jeweiligen Bereichs
Set cht = .ChartObjects.Add(l, t, 360, 240)     '360 ist die Breite entspricht in diesem Fall 6 Standard Spalten, und 240 ist in diesem Fall die Höhe
End With
With cht.Chart
    .SetSourceData Source:=rng3, PlotBy:=xlColumns
    .ChartType = xlLineMarkers
    .HasLegend = True
    .HasTitle = True
    .ChartTitle.Text = Cells(i, "A:A").Value & Cells(i, "B:B").Value
    .ChartTitle.Font.Size = 10
    .Axes(xlValue).TickLabels.Font.Size = 8
    .Axes(xlCategory).TickLabels.Font.Size = 8
    .SeriesCollection(1).Name = "20" & NameDatenreihe1
    .SeriesCollection(1).XValues = Array(XAchse1, XAchse2, XAchse3, XAchse4, XAchse5, XAchse6, XAchse7, XAchse8, XAchse9, XAchse10, XAchse11, XAchse12)
    .SeriesCollection.NewSeries                         'Hinzufügen der zusätzlichen Datenreihen
    .SeriesCollection(2).Values = rng2
    .SeriesCollection(2).Name = "20" & NameDatenreihe2
    .SeriesCollection.NewSeries
    .SeriesCollection(3).Values = rng1
    .SeriesCollection(3).Name = "20" & NameDatenreihe3
End With

Set rng1 = rng1.Offset(36)       'verschiebe Block um 36 Zeilen nach unten
Set rng2 = rng2.Offset(36)
Set rng3 = rng3.Offset(36)

Next i

Wenn ich nun so:

[...]

Set rng4 = Worksheets("Tabelle3").Range("A1:L1")

With cht.Chart
.SeriesCollection.NewSeries
.SeriesCollection(4).Values = rng4
.SericesCollection(4).Name = "20" & NameDatenreihe4
End With

[...]

versuche ein neue Datenreihe zu ergänzen kommt der Laufzeitfehler 424: "Objekt erforderlich".

Kennt sich jemand aus und weiß wie ich die Diagramme benennen kann, sodass ich per Schleife die neue Datenreihe einfügen kann?

Tobi