ich habe folgendes Problem. Möchte in insgesamt 4 Diagrammen je 29 Datenreihen hinzufügen, und würde das gerne per Makro machen. Das Problem ist, dass die Datenpunkte nicht untereinander stehen, sondern für Reihe 1 in den Zeilen 3 bis 5 und in den Zeilen 115 bis 117 usw. Ich wähle das Sheet aus, in dem das Diagramm ist und versuche Folgendes:
Sub Datenreihen()
Dim i As Integer
Dim XRange As Range
Dim YRange As Range
For i = 0 To 28
XRange = Sheets("Data"). Range("AK" & (3 + i * 3) & ":AK" & (5 + i * 3) & ",AK" & (115 + _
i * 3) & ":AK" & ( 117 + i * 3))
YRange = Sheets("Data"). Range("AL" & (3 + i * 3) & ":AL" & (5 + i * 3) & ",AL" & (115 + _
i * 3) & ":AL" & (117 + i * 3))
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(33 + i).XValues = XRange
ActiveChart.SeriesCollection(33 + i).Values = YRange
ActiveChart.SeriesCollection(33 + i).Name = Sheets("Data").Cells(3 + i * 3, 48)
Next i
End Sub
Funktioniert aber nicht :-( Hat jemand ne Idee, ob und wie das funktioniert?
Danke im Voraus!
Liebe Grüße,
Doro