ich möchte über 3 vorhandene Arrays (1x x-Werte und 2x y-Werte) in einem Diagramm 2 Datenreihen erstellen.
Leider wird immer nur eine Datenreihe angezeigt. Wie bekomme ich es denn hin, dass mir parallel 2 Datenreihen erstellt werden. Ich möchte das ganze ohne den Umweg gehen, dass ich die Daten nochmal in ein Blatt schreiben muss. Die Daten sollen direkt aus dem Array ins Diagramm geschrieben werden.
Sub Diagr()
Dim objChartObject As ChartObject
Dim y1w As Variant
Dim y2w As Variant
xw = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
y1w = Array(10, 12, 14, 15, 16, 17, 18, 19, 20)
y2w = Array(20, 22, 34, 45, 36, 27, 48, 19, 30)
Set objChartObject = ActiveSheet.ChartObjects.Add(10, 80, 500, 180)
With objChartObject
.Name = "Mein Diagramm"
With .Chart
.ChartType = xlXYScatterSmooth
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = xw
.SeriesCollection(1).Values = y1w
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = xw
.SeriesCollection(1).Values = y2w
.Legend.Delete
End With
End With
End Sub