Hallo zusammen,

mein Problem ist folgendes, ich möchte mit Range(Chr() & X die Spalte über iSP für jede Schleife verschieben, für einen einzelnen Wert klappt es, aber nicht für z.B. einer Serie von 6 Stück.

Office 365

Vllt kann mir ja jemand helfen.

Dank und Gruß

Dim iReihe As Integer
For iReihe = 1 To 8 Step 1
Dim iSP As Integer
For iSP = 0 To 7 Step 1

   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(Chr(67 + iSP) & 53, Chr(67 + iSP) & 60, Chr(67 + iSP) & 67, Chr(67 + iSP) & 74, Chr(67 + iSP) & 81, Chr(67 + iSP) & 88)
      End With
Next iSP
Next iReihe