|
Moin VBA-ler,
ich habe ein Makro, dass mir ein Diagramm von Werten erstellt. Das läuft auch einwandfrei. Nun möchte ich allerdings noch eine zweite Datenreihe hinzufügen.
Die Bereiche dafür sind als rngWerte1 und rngWerte2 definiert.
Hier der entscheidende Ausschnitt vom Makro, indem das Diagramm erzeugt wird.
With ActiveSheet
l = .Cells(i, "N:N").Left 'wird neben Spalte N plaziert
t = .Cells(i, "N:N").Top 'in der obersten Zelle des jeweiligen Bereichs
Set cht = .ChartObjects.Add(l, t, 240, 120)
End With
With cht.Chart
.SetSourceData Source:=rngWerte1, PlotBy:=xlColumns
.SetSourceData Source:=rngWerte2, PlotBy:=xlColumns
.ChartType = xlLineMarkers
.HasLegend = False
.HasTitle = True
.ChartTitle.Text = Cells(i, "A:A").Value
.ChartTitle.Font.Size = 10
.Axes(xlValue).TickLabels.Font.Size = 8
.Axes(xlCategory).TickLabels.Font.Size = 8
End With
Ich habe einfach bei .SetSourceData Source:= usw. noch eine zweite Zeile mit dem zweiten Wertebereich eingegeben.
Nun werden mir die beiden Datenreihen allerdings nicht "übereinander" dargestellt, sondern die zweiten Werte werden einfach nach den ersten Werten dargestellt. Also die x-Achse wird verlängert und die Werte 2 rechts neben den Werten 1 dargestellt. Da aber beide Bereiche jeweils die gleiche Anzahl an Werten haben, möchste ich diese übereinander darstellen. Also so wie es auch aussieht, wenn man sonst en Diagramm erstellt und eine zweite Datenreihe hinzufügt.
Muss ich einen anderen Befehl verwenden?
Gruß,
Emil
|