Sub
Einbetten()
ActiveChart.Axes(xlValue).MajorGridlines.
Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name =
"='Ebene 1 Teil 1'!$B$46"
ActiveChart.FullSeriesCollection(2).Values =
"='Ebene 1 Teil 1'!$C$46:$JQ$46"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(3).Name =
"='Ebene 1 Teil 1'!$B$47"
ActiveChart.FullSeriesCollection(3).Values =
"='Ebene 1 Teil 1'!$C$47:$JQ$47"
End
Sub