Begin- en end x-as grafiek in Excel bepalen aan de hand van Cel waarden

[geertsjelle]

Hallo allemaal,

Ik heb een grafiek waarin op basis van een celwaarde in WK-nummers het begin en eind van de x-as wil bepalen.

De bron van de grafiek zijn een kolom met WK-nummers en een kolom met omzetten.

Ik heb een voorbeeld bestand gemaakt om mijn vraag beter uit te leggen.

Volgens mij is het mogelijk via een VBA code.
Is er iemand die me hierbij kan helpen?

Alvast bedankt!
----------------------------

Jelle

 

[wampier]

volgens mij is het meest eenvoudige om comboboxen te gebruiken ipv cellen met validation, maar dat is niet strikt noodzakelijk.

Ik heb voor mezelf 2 comboboxen gebruikt die ik link aan H3 en H4, vervolgens koppel ik de volgende macro aan de dropdown_change (van beide comboboxen):

Sub DropDown7_Change()

x = Sheets(1).Cells(3, 8).Value + 1
x2 = Sheets(1).Cells(4, 8).Value + 1


'stukje standaardcode om alle charts te wissen
For Each xChart In Sheets(1).ChartObjects
    With xChart.Chart
        Do Until .SeriesCollection.Count = 0
            .SeriesCollection(1).Delete
        Loop
    End With
Next xChart

'chart weer vullen
With Sheets(1).ChartObjects(1).Chart.SeriesCollection.NewSeries
    .Values = Sheets(1).Range(Sheets(1).Cells(x, 14), Sheets(1).Cells(x2, 14))
    .XValues = Sheets(1).Range(Sheets(1).Cells(x, 13), Sheets(1).Cells(x2, 13))
    .Name = "omzet per week"
End With
            
End Sub

 

[geertsjelle]

Wampier,

Bedankt voor je reactie en je code.

Het lukt me alleen niet om de code in te bouwen in de excel sheet.
Ik weet niet wat ik verkeert doe maar ik kom er maar niet uit. Zou jij jou voorbeeld willen posten (als je hem nog hebt).

Verder heb ik nog een vraag. Ik wil meerdere grafieken gaan toevoegen in de sheet maar volgens mij worden deze dan ook gewist als ik de code er in laat staan de alle grafieken wist. Is het mogelijk dat ik deze ook weg laat?

Alvast bedankt!

 

[wampier]

Ik heb niet direct de mogelijkheid te posten, maar ik zal dit vanmiddag proberen te doen.

Indien je meerdere grafieken wil gebruiken, kun je natuurlijk de grafieken selectief wissen. Daar is niet echt veel aanpassing voor nodig (voor de eerste chart):

With Sheets(1).ChartObjects([COLOR="DarkRed"]1[/COLOR]).Chart
        Do Until .SeriesCollection.Count = 0
            .SeriesCollection(1).Delete
        Loop
End With

Daarna kun je chart 1 weer vullen

 

[wampier]

Ik heb even zonder comboxes gewerkt, het enige nadeel hier is dat je nu niet duplicaten kunt selecteren (1 2010 staat er 2x in)

 

[geertsjelle]

Wampier,

Als eerst sorry voor de late reactie

Dit is wat ik zocht.
Nogmaals bedankt voor het maken van het voorbeeld!!

--------------------------

Jelle