Diagramm erstellen mit For-Schleife

Sub DiagrammErstellung()
Dim xWerte As Range, yWerte As Range, i As Variant
Dim Daten As Worksheet
Application.ScreenUpdating = False
Set Daten = Sheets("ölverbrauch Messungen")
Daten.Select
Range("A42").Select
For i = 42 To Cells(74, 1)
With Daten
Set xWerte = Range(Cells(i, 9), Cells(i, 13), Cells(i, 17), Cells(i, 21), Cells
(i, 25)).Value
Set yWerte = Range(Cells(i,40:i,44))
With .Shapes.AddChart.Chart
.ChartType = xlXYScatter
.SeriesCollection.NewSeries
With .SeriesCollection(1)
.Values = yWerte
.XValues = xWerte
.Name = wsDaten.Cells(i, 2)
End With
.Location Where:=xlLocationAsNewSheet, Name:=Daten.Cells(4, i)
End With
End With
Next
End Sub