Hallo zusammen,

ich bekomme immer den Fehler ungültiger Verweis auf Next Steuervariable und verstehe nicht warum, habe fast den selben Code für die Erstellung eines anderen Diagramms und da taucht der Fehler nicht auf.

Hier einmal der wichtige Teil des Codes:

Dim iSPa As Integer
For iSPa = 0 To 7 Step 1
Dim rng As Excel.Range
Dim rngWithOffset As Excel.Range
Dim Cell As Range
Set rng = Range("C128:C137")

Set rngWithOffset = rng.Offset(0, iSPa)
Debug.Print rngWithOffset.Address
               
For Each Cell In rng
If Worksheets("Protokoll").Range("C128:C137").Offset(0, iSPa) = "" Then
Exit Sub
End If

ActiveChart.SeriesCollection.NewSeries
With ActiveChart.SeriesCollection(iSPa + 1)
.Name = "Einstellung " & iSPa + 1
.XValues = Worksheets("Protokoll").Range("A128:A137")
.Values = Worksheets("Protokoll").Range("C128:C137").Offset(0, iSPa)
End With

Next iSPa
      
End Sub

Dank und Gruß

Bluemotion