Office: Balkendiagramm via VBA erstellen

Servus zusammen,

ich hätte eine Frage:

und zwar müsste ich ein Balkendiagramm erstellen, welches 3 Bereiche beinhalten soll.

PHP:

         Sub Diagrammm()
Dim i As Integer
Dim n As Integer
i = 6
For n = 1 To 5
With ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Chart
.SetSourceData Source:=ActiveSheet.Range(ActiveSheet.Cells(i, 6), ActiveSheet.Cells(i + 17, 6))
.Parent.Top = Cells(i, 20).Top
.Parent.Left = Cells(i, 20).Left
.HasLegend = True
.Parent.Height = 300
.Parent.Width = 380
With .Legend
.Position = xlBottom
End With
End With
i = 6 + 22 * n
Next n
End Sub


:)

 

Hi,

du erstellst kein Balken- sondern ein Säulendiagramm - das erst einmal zur Richtigstellung *wink.gif*


Versuche es mal auf diesem Weg:

Code:

 

Vielen Dank!!!
Klappt super *Smilie