Grafiek voorzien van dynamisch bereik dmv VBA

[Peer44]

Hallo,

ik probeer via VBA een grafiek in te voegen, helaas loop ik vast op het dynamische gedeelte:

Option Explicit
Sub grafiek()
'
' grafiek Macro
   
    Dim Xas As Range
    Dim Yas As Range
    Xas = Range("D6",("D6").Select Range(Selection, Selection.End(xlDown)).Select 'dit werkt niet
    Yas = Range("F6
    
      
   
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Range( _
        "'Data voor grafiek'!$D$6:$D$60;'Data voor grafiek'!$F$6:$F$60") 'Hoe kan ik hier iets variabels van maken?
    ActiveWorkbook.Save
End Sub

ik heb eerst binnen excel met dynamische grafieken gewerkt. maar dat werkte helaas niet voor mij.

Het aantal regels wat moet worden opgenomen worden in de grafiek, is na (vernieuwen met Jet reports) telkens wisselend.

hoe kan ik dit werkend krijgen?

 

[spaarie]

Misschien is dit een mooi voorbeeldje voor je
Worksheet.nl

 

[pixcel]

Als je bron een tabel is kan het zoiets zijn: Source:=Blad1.listobjects(1).databodyrange
Voorbeeld?
Excel versie?