Office: (Office 2010) Mehrere Checkboxen in Subform aktivieren mit VBA

Hallo liebe VBA Experten
ich habe ihr ein Excel Datei mit mehreren Tabellen. Zum Drucken oder speichern kann ich über einen Userform die entsprechende/erwünschter Tabellen über Checkboxen anklicken.
Zurzeit sind es nur 5 (Checkbox 1-5), können aber noch mehr werden. Deshalb habe ich ein CommandButton (Select Lists) in der Userform gesetzt und möchten über diese Button alle 5 Checkboxen aktivieren oder deaktivieren mit einem Klick.
Gibt es hierzu einen Code welche ich in einem Modul setzen kann und mit einem Befehl in der Userform Code:_ Private Sub CommandButton1_Click()_…_End Sub ansteuern kann.
vielen Dank für die Hilfe

Twiti

 

Hi,

Code:

Private Sub CommandButton1_Click()
    Dim ctrElement As Control
    For Each ctrElement In Me.Controls
        If TypeName(ctrElement) = "CheckBox" Then ctrElement = False  ' = True falls aktivieren
    Next ctrElement
End Sub

Bis später,
Karin

 

Danke Karin,
noch eine weitere Frage, geht es auch mit ein Checkbox, als Master für alle anderen Checkboxen, der alles aktiviert/deaktiviert?
Herzliche Grüße

 

Hi,

habe leider keine Mailbenachrichtigung bekommen, deshalb erst jetzt die Antwort auf deine Frage.

Ungetestet:

Code:

Private Sub CheckBox25_Click()
    Dim ctrElement As Control
    If CheckBox25 Then
        For Each ctrElement In Me.Controls
            If TypeName(ctrElement) = "CheckBox" Then
                If ctrElement.Name <> "CheckBox25" Then ctrElement = False ' = True falls aktivieren
            End If
        Next ctrElement
    End If
End Sub

Bis später,
Karin