meerdere series in xy plot maken

Status
Niet open voor verdere reacties.
C

cyprus1

Nieuwe gebruiker
Lid geworden
18 jul 2018
Berichten
3
Ik wil meerdere series in een xy plot zetten maar kan de juiste code niet vinden, wie kan mij helpen?
ik doe het nu stuk voor stuk:

ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).name = "=input!$AA$7"
ActiveChart.FullSeriesCollection(2).XValues = "=input!$AB$7:$AB$11"
ActiveChart.FullSeriesCollection(2).Values = "=input!$AC$7:$AC$11"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(3).name = "=input!$AA$12"
ActiveChart.FullSeriesCollection(3).XValues = "=input!$AB$12:$AB$16"
ActiveChart.FullSeriesCollection(3).Values = "=input!$AC$12:$AC$16"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(4).name = "=input!$AA$17"
ActiveChart.FullSeriesCollection(4).XValues = "=input!$AB$17:$AB$21"

hoe krijg ik dat in een do loop voor elkaar? ik krijg steeds foutmeldingen als ik ranges adresseer.
 
Van 2 t/m 4

Geen idee of het werkt.
Code: 
Sub hsv()
Dim sq, i as long
sq = Array("=input!$AA$7", "=input!$AB$7:$AB$11", "=input!$AC$7:$AC$11", "=input!$AA$12", "=input!$AB$12:$AB$16", "=input!$AC$12:$AC$16", "=input!$AA$17", "=input!$AB$17:$AB$21", "=input!$AC$17:$AC$21")
For i = 0 To UBound(sq) Step 3
 With ActiveChart
   .SeriesCollection.NewSeries
   .FullSeriesCollection(i + 2).Name = sq(i)
   .FullSeriesCollection(i + 2).XValues = sq(i + 1)
   .FullSeriesCollection(i + 2).Values = sq(i + 2)
 End With
Next i
End Sub
 
range

bedankt maarr ik zoek iets in de trant van
Range("aa" & (i )
maar hoe doe ik dat?
 
Je kan de ook de naam van de chart gebruiken, je hoeft het dan niet te selecteren.
Code: 
Dim i As Long, j As Long
For i = 2 To 4
  With ActiveChart
   .SeriesCollection.NewSeries
   .FullSeriesCollection(i).Name = sheets("input").cells(7, 27).offset(j)
   .FullSeriesCollection(i).XValues = sheets("input").cells(7, 28).offset(j).resize(5)
   .FullSeriesCollection(i).Values = sheets("input").cells(7, 29).offset(j).resize(5)
  End With
 j = j + 5
Next i
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan