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
|