Datenwahl via Checkboxen für Diagramm

Moin moin Leute,
ich möchte ein Makro schreiben, welches ermöglicht die Datenreihen, welche in einem Diagramm erscheinen sollen, via Checkboxen vorher auszuwählen. Ich erhoffe mir Hinweise, wie ich dieses Problem am geschicktesten angehen kann.
Also, der derzeitige Stand ist, dass ich ein Excel-Sheet mit mehreren Datenkolonnen habe und diese 'dynamisch' in einem Diagramm darstellen will. Nach einem Click auf einen Button, öffnet sich eine Userform1, in welcher 19 Datenreihen liegen. Diese können vom Nutzer über eine Checkbox ausgewählt werden. Danach frage ich, ob auf der Abszisse (standardmäßig) die Zeit oder eine andere Datenreihe aufgefasst werden soll. Sollte es sich um eine andere Datenreihe handeln, öffnet sich eine Userform2, in welcher man aus 19 OptionButtons (die gleichen wie in Userform1) einen auswählen kann.
Tja, so weit so gut. Ich würde das ganze gerne über eine Schleife ansteuern, in welcher geprüft wird, welche z.B. Checkboxen ausgewählt sind. Nun ist hier die Frage wie ich eine Checkbox mit einer speziellen Spalte eines Tabellenblatts kopple und ob ich diese quasi in den Zwischenspeicher bzw. in der Implementierung der Datenreihen des Diagramms direkt einbinden kann.
Oder, Variante 2, muss ich diese in eine neues Tabellenblatt kopieren und dann daraus ein Diagramm zeichen?
Oder, Variante 3, einfach all jene Spalten, welche nicht ausgewählt wurden ausblenden vom existierenden Tabellenblatt, Diagramm zeichen und dann wieder alles einblenden?
Gerade Variante 2 hört sich für mich eher unchique an, Variante 1 ziemlich kompliziert. Gibt es hier einen nützlichen Tipp von euch mein Problem zu lösen?
Und weiter: Kann ich die Checkboxen über eine Schleife ansprechen?
Sprich i=1 bis 19 erreicht und eingebunden über Checkbox & i = True?
Genung des Schreibens, vielen Dank für eure Hinweise!

Ich habe mittlerweile eine Lösung gefunden:

Private Sub UserForm_Initialize()
For i = 1 To 19
With Controls("CheckBox" & i)
' Bezeichnung aus Überschriften der Zeile 1 und Spalte in Tag-Eigenschaft ermitteln
.Caption = Worksheets("Tabelle2").Cells(1, CLng(.Tag)).Value
' Wert der Kontrollkästchen nach Anzeigezustand der Spalten einstellen
.Value = Not Worksheets("Tabelle2").Columns(CLng(.Tag)).Hidden
End With
Next i
End Sub
Private Sub CommandButton1_Click()
For i = 1 To 19
With Controls("CheckBox" & i)
' Spalte ausblenden, wenn CheckBox deaktiviert
Worksheets("Tabelle2").Columns(CLng(.Tag)).Hidden = Not .Value
End With
Next i
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

In der UserForm sollte man die einzelnen Checkboxes noch mit Tags versehen, entsprechend der Nummerierung der Spalte.

Datenwahl via Checkboxen für Diagramm

Forumthread: Datenwahl via Checkboxen für Diagramm

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial