b = Name.Row
Oben = Cells(b, 5).Address
x = Ausgleich + i
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Name = Sheets(1).Cells(x, 1)
ActiveChart.SeriesCollection(i).XValues = Sheets(1).Cells(x, 3)
ActiveChart.SeriesCollection(i).Values = Sheets(1).Cells(x, 4)
ActiveChart.SeriesCollection(i).BubbleSizes = Sheets(1).Cells(x, 2)
With
ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count)
.Top = Range(Oben).Top
.Left = Range(Oben).Left