Hallo Forum,

ich möchte über ein Makro ein Bubble-Chart erstellen.
Der Code lautet:

Charts.Add
ActiveChart.ChartType = xlBubble
ActiveChart.SetSourceData Source:=Sheets("Tabelle3").Range("B4")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!C4"
ActiveChart.SeriesCollection(1).Values = "=Tabelle1!C5"
ActiveChart.SeriesCollection(1).Name = "=Tabelle1!C3"
ActiveChart.SeriesCollection(1).BubbleSizes = "=Tabelle1!C6"
ActiveChart.SeriesCollection(2).XValues = "=Tabelle1!C4"
ActiveChart.SeriesCollection(2).Values = "=Tabelle1!C5"
ActiveChart.SeriesCollection(2).Name = "=Tabelle1!C3"
ActiveChart.SeriesCollection(2).BubbleSizes = "=Tabelle1!C6"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle3"

Dabei wirft er mir den Laufzeitfehler 1004 aus, und sagt mir: die Methode ChartType für das Objekt _Chart ist fehlgeschlagen.
Wie erstelle ich automatisch ein Bubble-Chart?
Danke im Vorraus.

Grüße

Christian