wie bekomme ich anstelle des Tabellennamen das ganze so gedreht
dass immer das ActiveSheet gewählt wird.
Der Bereich ist indes immer gleich!?
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("Daten!$F$6:$F$18") ActiveChart.ChartTitle.Select
ActiveChart.FullSeriesCollection(1).Name = "=Daten!$F$6:$F$8"
ActiveChart.FullSeriesCollection(1).XValues = "=Daten!$B$12:$B$18"
Danke mal und GrußNilo