VBA-Blasendiagramm mit unterschiedlichen Farben

Hallo leibe VBA Profis,
wäre sehr dankbar, wenn mir einer von euch bei folgendem Problem behilflich sein kann.
Ich habe eine Excel-Liste und möchte daraus ein Blasendiagramm mit unterschiedlichen Blasenfarben erstellen.
Anbei der Link mit dem Beispiel: https://www.herber.de/bbs/user/107887.xlsx
Die Spalte C als x-Achse
Die Spalte D als y-Achse
Die Spalte F als Blasengröße
In dem Beispiel habe ich jede Zeile manuell eingefügt, damit auch die Farbe der Blasen unterschiedliche sind. Jedoch habe ich eine Excel-Liste mit 200 Zeilen, die ich manuell einfügen müsste.
Gibt es da eine Lösung das ganze mit einem VBA-Code zu automatisieren? Für mich ist es wichtig das die Blasen unterschiedliche Farben haben, unabhängig von derer Größe und Platzierung. Die Farben können auch öfter vorkommen.
Vielen Dank im Voraus
Gruß
juskri

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hier ein Bsp.
Gruß Basti


Sub Makro1()
Dim rng As Range
Dim zells As Range
Dim i As Long
Dim TabellenName As String
i = 1
TabellenName = "=Beispiel!"
With ThisWorkbook.Worksheets("Beispiel")
Set rng = .Range(.Cells(2, 1), .Cells(.Cells(1048576, 1).End(xlUp).Row, 1))
End With
With ActiveSheet.ChartObjects("Diagramm 1").Chart
intChartRow = .SeriesCollection.Count
For intCounter = intChartRow To 1 Step -1 ' Löschen der Daten
.SeriesCollection(intCounter).Delete
Next intCounter
For Each zells In rng '-- einlesen der Neuen Daten
.SeriesCollection.NewSeries
.FullSeriesCollection(i).Name = TabellenName & zells.Address
.FullSeriesCollection(i).XValues = TabellenName & zells.Offset(0, 2).Address
.FullSeriesCollection(i).Values = TabellenName & zells.Offset(0, 3).Address
.FullSeriesCollection(i).BubbleSizes = TabellenName & zells.Offset(0, 5).Address
'.FullSeriesCollection(i).Format.Fill .ForeColor.RGB = RGB(0, 0, 0) ' Hier könnte man die  _
Farbe Manuell ändern in der Schleife aber ich meine das excel Automatisch eine andere Farbe wählt
i = i + 1
Next
End With
End Sub

Sub Farbe_definieren() Dim Ch As ChartObject Set Ch = ActiveSheet.ChartObjects("Diagramm 1") N = Ch.Chart.FullSeriesCollection.Count Stufe = 255 / N For i = 1 To N With Ch.Chart.FullSeriesCollection(i).Format.Fill .Visible = msoTrue .ForeColor.RGB = RGB(i * Stufe, 255 - i * Stufe, i * Stufe) .Transparency = 0 .Solid End With Next i End Sub

Beliebteste Forumthreads (12 Monate)

VBA-Blasendiagramm mit unterschiedlichen Farben

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-Blasendiagramm mit unterschiedlichen Farben

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread