xlXYScatter mit mehreren Graphen aus Datenreihen
24.06.2013 15:21:06
Kapitän
ich habe eine Tabelle mit unterschiedlich vielen Blöcken an Datenreihen. In einem Block stehen jeweils 5Spalten mit unterschiedlich vielen Zeilen. Getrennt sind die Blöcke mit einer Leerspalte. Ich habe dann Diagramme (je nach Anzahl der Blöcke) erstellt. In diesen Diagrammen ist die jeweils 3.Spalte der x-Achsenwert und die 5. der y-Achsenwert.
Jetzt möchte ich alle Datenreihen in einem Diagramm darstellen. Dabei sind die x-Werte der einzelnen Blöcke unterschiedlich voneinander, sodass man nicht eine feste Spalte für die x-Werte hat, und die jeweiligen y-Werte nurnoch einträgt.
Weiß jemand, wie man den QCode modifizieren muss um alle Graphen (eher Punktwolken) in einem Diagramm darstellen zu können?
Sub charts()
Dim zeile, k, rngX As Range, rngY As Range
Dim wsDaten As Worksheet
Application.ScreenUpdating = False
Set wsDaten = Sheets(8) '("Input_Flutlinien")
wsDaten.Select
Range("A1").Select
For k = 1 To Cells(4, Columns.Count).End(xlToLeft).Column Step 6
With wsDaten
zeile = .Cells(.Rows.Count, k).End(xlUp).Row
Set rngX = .Range(.Cells(8, k + 2), .Cells(zeile, k + 2))
Set rngY = rngX.Offset(, 2)
With .Shapes.AddChart.Chart
.ChartType = xlXYScatter
.SeriesCollection.NewSeries
With .SeriesCollection(1)
.Values = rngY
.XValues = rngX
.name = wsDaten.Cells(4, k)
.Trendlines.Add Type:=xlMovingAvg, Period:=2, _
Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:=True
End With
.Location Where:=xlLocationAsNewSheet, name:=wsDaten.Cells(4, k)
End With
End With
Next
End Sub
Hier mal eine Beispieldatei mit Makro.
https://www.herber.de/bbs/user/86001.xlsm
Viele Grüße
Kapitän