ich möchte nacheinander Messdaten in ein Diagramm einpflegen. Jede Zeile soll einen Graphen ergeben. Die Spalten sind dabei fest.
Dazu habe ich folgendes Programm geschrieben und frage mich ob ich damit auf dem richtigen weg bin. Ich würde mich über eure Hilfe freuen. Falls ich mich nicht deutlich ausgedrückt habe, bitte um kurze Nachricht.
Liebe Grüße
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