Automatisch Charts erzeugen und manipulieren

Sub create_charts()
' create charts for measurement positions
Dim i%, num%, j%
num = 8
For i = 6 To num
j = i + 1
Sheets("Chart1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Chart" & i
ActiveChart.ChartArea.Select
ActiveChart.FullSeriesCollection(1).Select
Selection.Formula = _
"=SERIES('Test CT110'!R" & j & "C1,'Test CT110'!R3C258:R3C443,'Test CT110'!R" & j & " _
C258:R" & j & "+1C443,1)"
ActiveChart.FullSeriesCollection(2).Select
Selection.Formula = _
"=SERIES('Data CT110 Transient Soak'!R" & i & "C1,'Data CT110 Transient Soak'!R2C2: _
R2C1201,'Data CT110 Transient Soak'!R" & i & "C2:R" & i & "C1201,2)"
Next
End Sub