Option
Explicit
Sub
Einbetten()
Dim
rng
As
Excel.Range
Dim
i
As
Long
Dim
startingRow
As
Long
Dim
endingRow
As
Long
startingRow = 46
endingRow = 116
Set
rng = Worksheets(
"Ebene 1 Teil 1"
).Range(
"C59:JQ59"
)
ActiveChart.Axes(xlValue).MajorGridlines.
Select
Debug.Print
"Vorher:"
Debug.Print
" * "
; rng.Offset(0, -1).Cells(1).Address
Debug.Print
" * "
; rng.Address
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name = rng.Offset(0, -1).Cells(1)
ActiveChart.FullSeriesCollection(2).Values = rng
For
i = startingRow
To
endingRow
Step
1
Set
rng = rng.Offset(1)
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name = rng.Offset(0, -1).Cells(1)
ActiveChart.FullSeriesCollection(2).Values = rng
Debug.Print
"Nachher:"
Debug.Print
" * "
; rng.Offset(0, -1).Cells(1).Address
Debug.Print
" * "
; rng.Address
Next
i
End
Sub