Treemap VBA
12.08.2022 10:21:37
Sven
vor einiger Zeit habe ich schonmal nach Hilfe gefragt und bin am Ende leider nicht zu einer Lösung gekommen.
Was ich machen will:
Eine Treemap soll erstellt werden. Die Bezeichnungen stehen in E89:E94 und die Werte in F89:F94. Die Treemap sollte sich einfach auf das Tabellenblatt beziehen, so dass bei mehrfachen kopieren des Tabellenblattes immer die aktuellen Daten auf den Seiten genommen werden.
Hierzu habe ich damals auch einen Code von einem lieben User bekommen, vielleicht sieht ja jemand den Fehler. Denn leider kommt am Ende Ein Diagramm ohne Daten und Beschriftung raus.
Sub TeemapErstellen()
Dim chrDia As Object
Set chrDia = ActiveSheet.Shapes.AddChart2(410, xlTreemap)
With chrDia.Chart
.SeriesCollection.NewSeries
.FullSeriesCollection(1).Name = "=" & ActiveSheet.Name & "!$E$89:$E$94"
.FullSeriesCollection(1).Values = "=" & ActiveSheet.Name & "!$F$89:$F$94"
End With
End Sub