Bubble Chart per VBA erzeugen

Hallo,
ich habe mit Hilfe von Gordon und GerdZ (DANKE nochmal!)
es geschafft mir eine Matrix mit Zahlen zu errechnen. Nun möchte
ich die als Bubble Chart darstellen. Dabei möchte ich eine jeweils
eine Datenreihe für jeden X Wert erzeugen, in dieser sollen
unter X Werte immer der jeweilige X Wert stehen, unter Y Werte die jeweilige Y Wert und als Größe immer der jeweilige Wert der in der Matrix an der jeweiligen stelle steht. Leider komme ich mit den Funkionen nicht ganz klar, kann sich bitte jemand den Code ansehen und mir sagen wo/warum ich die Falschen Methoden nutze (dachte es geht irgendwie mit SeriesCollection)
Weiters schaffe ich es leider auch nicht die Matrix überhaupt auf ein neues Arbeitsblatt zu schreiben.
Vielen Dank für Eure Hilfe!
Florian
Hier das Arbeitsblatt:

Die Datei https://www.herber.de/bbs/user/27615.xls wurde aus Datenschutzgründen gelöscht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Blasendiagramm()
Dim s%, i%, sh As Worksheet
Set sh = Sheets("erg")
s = 1: i = 1
Application.ScreenUpdating = False
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="erg"
With ActiveSheet.ChartObjects(1).Chart
  Do
    .SeriesCollection.NewSeries
    .SeriesCollection(i).Name = sh.Range(sh.Cells(3, s), sh.Cells(3, s))
    .SeriesCollection(i).XValues = sh.Range(sh.Cells(18, s), sh.Cells(20, s))
    .SeriesCollection(i).Values = sh.Range(sh.Cells(4, 2), sh.Cells(6, 2))
    .SeriesCollection(i).BubbleSizes = "=erg!R4C" & s & ":R6C" & s
    If i > 1 Then .SeriesCollection(i).ChartType = xlBubble3DEffect
    s = s + 1
    i = i + 1
  Loop Until sh.Cells(3, s) = ""

    .ChartArea.Interior.ColorIndex = 15
    .PlotArea.Interior.ColorIndex = 2
    .SeriesCollection(5).Interior.ColorIndex = 43
    .SeriesCollection(9).Interior.ColorIndex = 33
    With .Legend.LegendEntries(1).LegendKey
       .Delete
       .Delete
    End With
    .Axes(xlCategory).MinimumScale = 0
    .Axes(xlValue).MinimumScale = 0
End With
ActiveSheet.[b4:l15].Copy ActiveSheet.[b4]
With Application
  .SendKeys "{esc}"
  .ScreenUpdating = True
End With
End Sub


die Tabelle beginnt in B3(links eine Spalte und oben eine Zeile einfügen)
die Anzahl der Datenreihen wird aus Zeile 3 ermittelt,in der Zeile wo
links "Alter" steht.Willst du angenommen nur 3 Datenreihen darstellen,
mußt die die Zahlen von 4-10 löschen...
gruß Herbert

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread