ActiveChart.FullSeriesCollection(A).Name = Range(Cells(8914, 43), Cells(g, 43))
ActiveChart.FullSeriesCollection(A).XValues = Range(Cells(8914, 45), Cells(g, 45))
ActiveChart.FullSeriesCollection(A).Values = Range(Cells(8914, 39), Cells(g, 39))
Vielen Dank