|
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
|