auch bei mir besteht ein kleines Problem, dass ich nicht richtig lösen kann. Ich will ein Diagramm in VBA schreiben und den Daten für die x- bzw. y-Achse bestimmte Werte zuweisen. Leider zeigt er mir meine Werte nicht an bzw. skaliert auf der y-Achse die Werte schon komplett falsch. Kann mir jemand vllt helfen?
Sub Diagrammblatt()
' Alte Diagramme löschen
Dim Chart As Object
For Each Chart In Sheets("Tabelle2").ChartObjects
Chart.Delete
Next
Dim DA1, DA2, DA3, DE, DA As Range
Dim KA1, KA2, KA3, KE, KA As Range
Dim xArr As Variant
Dim yArr As Variant
DA1 = Date
DA2 = DateAdd("d", 3, Date)
DA3 = DateAdd("d", 8, Date)
DE = DateAdd("m", 12, Date)
KA1 = 0.6
KA2 = 0.3
KA3 = 0.1
KE = 0
xArr = Array(DA1, DA2, DA3, DE)
yArr = Array(KA1, KA2, KA3, KE)
' Auswahl der Tabelle und des Diagrammtypes
With Worksheets("Tabelle2")
.Shapes.AddChart2(276, xlAreaStacked).Select
.Application.CutCopyMode = False
End With
With ActiveChart
' Festlegung der Daten für das Diagramm
.SeriesCollection.NewSeries
.SeriesCollection(1).Name = "=""Test"""
.SeriesCollection(1).Values = xArr
.SeriesCollection(1).XValues = yArr
End With
End Sub