VBA Diagramm gestrapelte Säulen

Question

Hallo,

habe folgenden Code mit dem ich ein Diagramm "Gestapelte Säule" erzeugen möchte:

Sub Diagramm()

Dim chrDiagramm As ChartObject
ActiveSheet.Shapes.AddChart(201, xlColumnClustered).Select

ActiveChart.SetSourceData Source:=Range("AQ184:AQ189")
ActiveChart.ChartType = xlColumnStacked
For Each chrDiagramm In ActiveSheet.ChartObjects
chrDiagramm.Width = 250
chrDiagramm.Height = 140
Next
End Sub

Hab schon alles probiert (auch Macrorecorder), kriege aber immer wieder ein "normales" Säulendiagramm raus. Ich brauche aber nur eine Säule in der sich die Daten aufstapeln. Weiß jemand Rat?
Danke und Gruß

Answer 1

Hallo Andreas,

bei mir funktionierts so

Sub Diagramm()
Range("AQ184:AQ189").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Range("Tabelle1!$AQ$184:$AQ$189")
ActiveChart.PlotBy = xlRows
End Sub

Gruß
Rainer

Answer 2

Hallo Rainer,

komme leider erst jetzt dazu, dir zu danken. Wie immer funktioniert dein Code. Mir hat die letzte Befehlszeile gefehlt,
ActiveChart.PlotBy = xlRows

die die verschiedenen Säulen stapelt...
Danke und Gruß Andreas