Barchart mit Arrays und Strings erstellen
11.02.2020 11:58:00
Waldi
ich würde gerne mit Arrays und Strings einen Barchart bauen ohne vorher die Daten in ein Tabellenblatt zu schreiben. Mein Ziel ist es den Barchart so aussehen zu lassen wie in dieser Skizze
Ich habe es zuerst so probiert.
With MeinBalkenDiagramm
.ChartType = xlBarClustered
For i = LBound(moduleArray) To UBound(moduleArray)
dataArray = moduleArray(i).returnArray
.SeriesCollection.NewSeries
.SeriesCollection(i + 1).Values = dataArray
.SeriesCollection(i + 1).XValues = Array(moduleArray(i).ReturnModuleName)
Next i
End With
With MeinBalkenDiagramm
.ChartType = xlBarClustered
For i = 1 To 8
.SeriesCollection.NewSeries
Next i
For i = LBound(moduleArray) To UBound(moduleArray)
dataArray = moduleArray(i).returnArray
For p = 0 To UBound(dataArray)
.SeriesCollection(p + 1).Values = Array(dataArray(p))
.SeriesCollection(p + 1).XValues = Array(moduleArray(i).ReturnModuleName)
Next p
Next i
End With
Mit freundlichen Grüßen
Waldi