Macro grafiek reeks wel of niet weergeven

[Kim2011]

Hoihoi,

Ik heb een vraag over een macro functie.
In de bijlage staat een bestand. Nu wil ik met behulp van de button en de selectievakjes dat een grafiekreeks wel of niet wordt weergegeven. Je moet kunnen selecteren welke reeks wel zichtbaar is en welke niet. Dit gaat dan door middel van verwijderen en toevoegen. Het probleem waar ik tegenaan loop is dat als een grafiek verwijderd is en opnieuw gemaakt wordt dan krijgt deze een andere naam. Daarom kan ik de knop maar 1 keer gebruiken.

Wie kan me helpen?

Groetjes Kim

 

[Haije]

Kim,

in je bijlage zit geen macro....

 

[Kim2011]

Klopt, deze heb ik er even helemaal uitgehaald omdat ik merkte dat er meerdere fouten in zaten. Ik hoop dat iemand een iets simpelere manier heeft.

Dit is wat ik (volledig uitgeschreven) had:

Sub Button_Klikken()

    If Sheets("Blad1").CheckBoxes("Check Box 1").Value = xlOff Then
        ActiveSheet.ChartObjects("Grafiek 11").Activate
        ActiveChart.SeriesCollection(1).Delete
    End If
      
    If Sheets("Blad1").CheckBoxes("Check Box 1").Value = xlOn Then
        ActiveSheet.ChartObjects("Grafiek 11").Activate
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(4).Name = "=""Reeks 1"""
        ActiveChart.SeriesCollection(4).XValues = "=Blad1!$A$2:$A$62"
        ActiveChart.SeriesCollection(4).Values = "=Blad1!$B$2:$B$62"
    End If
    
    If Sheets("Blad1").CheckBoxes("Check Box 2").Value = xlOff Then
        ActiveSheet.ChartObjects("Grafiek 11").Activate
        ActiveChart.SeriesCollection(2).Delete
    End If
      
    If Sheets("Blad1").CheckBoxes("Check Box 2").Value = xlOn Then
        ActiveSheet.ChartObjects("Grafiek 11").Activate
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(4).Name = "=""Reeks 2"""
        ActiveChart.SeriesCollection(4).XValues = "=Blad1!$A$2:$A$62"
        ActiveChart.SeriesCollection(4).Values = "=Blad1!$C$2:$C$62"
    End If

    If Sheets("Blad1").CheckBoxes("Check Box 3").Value = xlOff Then
        ActiveSheet.ChartObjects("Grafiek 11").Activate
        ActiveChart.SeriesCollection(3).Delete
    End If
      
    If Sheets("Blad1").CheckBoxes("Check Box 3").Value = xlOn Then
        ActiveSheet.ChartObjects("Grafiek 11").Activate
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(4).Name = "=""Reeks 1"""
        ActiveChart.SeriesCollection(4).XValues = "=Blad1!$A$2:$A$62"
        ActiveChart.SeriesCollection(4).Values = "=Blad1!$D$2:$D$62"
    End If

    If Sheets("Blad1").CheckBoxes("Check Box 4").Value = xlOff Then
        ActiveSheet.ChartObjects("Grafiek 11").Activate
        ActiveChart.SeriesCollection(4).Delete
    End If
      
    If Sheets("Blad1").CheckBoxes("Check Box 4").Value = xlOn Then
        ActiveSheet.ChartObjects("Grafiek 11").Activate
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(4).Name = "=""Reeks 1"""
        ActiveChart.SeriesCollection(4).XValues = "=Blad1!$A$2:$A$62"
        ActiveChart.SeriesCollection(4).Values = "=Blad1!$E$2:$E$62"
    End If

End Sub

 

[Kim2011]

Iemand een idee?? Ik zou er erg geholpen mee zijn.

groetjes Kim

 

[popipipo]

Dit hoeft niet met een macro
Het kan ook zo

 

[cow18]

andere optie, zonder hulpkolommen en met vba is de kolommen te verbergen voor de reeksen die je niet wenst te zien.

 

[Kim2011]

Ik vind de oplossing van popipipo prima! Super bedankt!