Grafiek Range afhankelijk van datum

[Kikkertjuhh]

Beste,

Ik heb in een excel document een grafiek staan, waarvan ik de range graag met een macro zou willen aanpassen. Voorbeeldje zie bijlage.

De VBA-code op dit moment is

Sub Macro1()

With Sheets("Blad1")
SourceStart = Range("Blad1!$AH$1")
SourceEnd = Range("Blad1!$AI$1")
NameRangeStart = Range("Blad1!$AJ$1")
NameRangeEnd = Range("Blad1!$AK$1")
End With

    ActiveSheet.ChartObjects("Grafiek 2").Activate
    ActiveChart.SetSourceData Source:=Range(SourceStart, SourceEnd)
        
End Sub

Deze werkt, MAAR, dan hebben de reeksen geen naam labels. Ik heb geen idee hoe ik de NameRangeStart/NameRangeEnd in dit verhaal moet toevoegen. Kan iemand mij hierbij een zetje in de goede richting geven?

Groet,
Kikkertjuhh

 

[VenA]

Probeer het zo eens

For j = 1 To 13
    ActiveChart.SeriesCollection(j).Name = Sheets("Blad1").Cells(1, j + 1)
Next j

 

[Kikkertjuhh]

Bedankt voor je reactie!
Helaas snap ik eerlijk gezegd niet helemaal waar ik deze moet plaatsen. Is dit in plaats van de sectie waar de Range's gezet worden?

 

[VenA]

je kan het in jouw code net boven de End Sub zetten.

 

[Kikkertjuhh]

Inderdaad, bedankt!

 

[VenA]

Nog even naar jouw grafiek en opzet gekeken.

Volgens mij kan je het geheel helemaal in VBA maken. Je hebt dan alle hulpcellen niet meer nodig.

Sub VenA()
With Sheets("Blad1")
    With .ChartObjects("Grafiek 2")
        .Chart.SetSourceData .Parent.Cells(Application.Match(CLng(Date), .Parent.Columns(1)), 1).Offset(1).Resize(42, 14)
        For j = 1 To 13
            .Chart.SeriesCollection(j).Name = .Parent.Cells(1, j + 1)
        Next j
    End With
End With
End Sub

 

[Kikkertjuhh]

hoi VenA,

Bedankt! Dat is helemaal geweldig Je bent écht een "giga senior"