Method 'SeriesCollection' of object 'Chart' failed

Hallo zusammen,
der "Method 'SeriesCollection' of object '_Chart' failed" Fehler tritt in folgender Zeile auf, wenn ich für Anfang = InputBox einen Wert größer 2 wähle.

ActiveChart.SeriesCollection(i).Values = "=(Tabelle1!R" & i & "C13,Tabelle1!R" & i & "C15,Tabelle1!R" & i & "C17,Tabelle1!R" & i & "C19,Tabelle1!R" & i & "C21)"

Wie könnte ich das sauber beheben? Bisher lösche ich abhängig vom Anfangs-Input die nicht benötigten Zeilen weg, so dass der Anfang immer bei 1 liegt. Ist aber eine sehr unschöne Lösung, vor allem, wenn man das Skript mehrmals hintereinander ausführen möchte.

Rows(1 & ":" & 1000).Copy Worksheets("Tabelle2").Rows(1 & ":" & 1000)
For AnAnfangSchieben = 1 To Anfang - 1
Rows(1).Delete Shift:=xlUp
Next

Hat jemand einen Tipp, wie ich den Fehler sinnvoller umgehen könnte?
Grüße,
André


Sub createchart()
Dim Ende As Integer
Dim i As Integer
Dim Anfang As Integer
Worksheets("Tabelle1").Activate
Anfang = InputBox("Ab welcher Zeile soll die Auswertung beginnen?", "Zahl eingeben")
Ende = InputBox("Letzte auszuwertende Zeile?", "Zahl eingeben")
Charts.Add
ActiveChart.ChartType = xlLineMarkers
For i = Anfang To Ende
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Values = "=(Tabelle1!R" & i & "C13,Tabelle1!R" & i & "C15, _
Tabelle1!R" & i & "C17,Tabelle1!R" & i & "C19,Tabelle1!R" & i & "C21)"
ActiveChart.SeriesCollection(i).Name = "=Tabelle1!R" & i & "C1"
Next i
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Reinraumpartikel"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Partikelgröße"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Anzahl"
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub TestHolger() Dim chrDiagramm As Chart Dim c As Integer Dim i As Integer Dim a As Integer With Worksheets("Tabelle1") a = InputBox("Ab welcher Zeile soll die Auswertung beginnen?", "Zahl eingeben") c = InputBox("Letzte auszuwertende Zeile?", "Zahl eingeben") Set chrDiagramm = .ChartObjects.Add(50, 50, 400, 230).Chart With chrDiagramm .ChartType = xlLineMarkers For i = 1 To c - a + 1 .SeriesCollection.NewSeries .SeriesCollection(i).Values = "=(Tabelle1!R" & i + a - 1 & "C13,Tabelle1!R" & i _ + a - 1 & "C15,Tabelle1!R" & i + a - 1 & "C17,Tabelle1!R" & i + a - 1 & "C19,Tabelle1!R" & i + a - 1 & "C21)" .SeriesCollection(i).Name = "=Tabelle1!R" & i + a - 1 & "C1" Next i .HasTitle = True .ChartTitle.Characters.Text = "Reinraumpartikel" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Partikelgröße" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Anzahl" End With End With Set chrDiagramm = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Method 'SeriesCollection' of object 'Chart' failed

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Method 'SeriesCollection' of object 'Chart' failed

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread