Vielen Dank für die HIlfe,
das funktioniert soweit, nur habe ich jetzt festgestellt das die Schlaufen anscheinend nicht parallel laufen sondern multipliziert werde:D
bekomme jetzt 64 Datenreihen statt 8. Daumm muss ich mich dann nochmal gesondert kümmern.
Code sieht jetzt übrigens so aus:
Dim iReihe As Integer
For iReihe = 1 To 8 Step 1
Dim iSP As Integer
For iSP = 0 To 7 Step 1
Dim rng As Excel.Range
Dim rngWithOffset As Excel.Range
Set rng = Range("C53, C60, C67, C74, C81, C88")
Set rngWithOffset = rng.Offset(0, iSP)
Debug.Print rngWithOffset.Address
ActiveChart.SeriesCollection.NewSeries
With ActiveChart.SeriesCollection(iReihe)
.Name = "Einstellung " & iReihe
.XValues = Worksheets("Protokoll").Range("A52, A59, A66, A73, A80, A87") 'bis hier alles ok
.Values = Worksheets("Protokoll").Range("C53, C60, C67, C74, C81, C88").Offset(0, iSP)
End With
Next iSP
Next iReihe
|