Diagramm Code
11.10.2018 13:10:54
Anna
habe eine sehr einfache Frage. Ich bekomm es aber nicht hin. Diesen Code habe ich im netzt gefunden. Diesen möchte ich so abändern, damit ich auf der y-Achse z.b. die Werte aus Zelle A10,A30,A50, _
A60 und auf der x-Achse die Zahlen 0,15,30,45 stehen.
Ich habe ihn nur so geändert bekommen, dass es für jede Zelle eine neue Datenreihe startet. Ich _
wäre über Hilfe sehr dankbar. Außerdem wäre ich über Literatur und Internetseiten tipps dankbar.
Vielen Dank.
Grüße
Sub x()
Dim co As ChartObject
Dim r As Range
Set r = Range("D2:L40")
Set co = ActiveSheet.ChartObjects.Add(r.Left, r.Top, r.Width, r.Height)
co.Name = "myChart"
With co.Chart
.ChartType = xlXYScatterLinesNoMarkers
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = Range("A1:A10")
.SeriesCollection(1).Values = Range("B1:B10")
End With
End
Anzeige