SeriesCollection(i).BubbleSizes: Laufzeitfehler
09.10.2003 19:09:32
volker
Das folgende Makro führt bei mir zu einem "Laufzeitfehler'5': Ungültiger Prozeduraufruf oder ungültiges Argument"
Wer kann mir weiterhelfen?
Danke
Volker
Private Sub blasengröße()
Dim aktblatt As String
Dim i As Integer
aktblatt = "Tabelle1"
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
i = 1
Do While Sheets(aktblatt).Cells(i, 1).Value <> ""
ActiveChart.SeriesCollection(i).BubbleSizes = Sheets(aktblatt).Cells(i, 4).Value
i = i + 1
Loop
End Sub
Anzeige