• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Alles Selectievakjes tegelijk (de)selecteren

Status
Niet open voor verdere reacties.

GerardHdorp

Gebruiker
Lid geworden
15 nov 2008
Berichten
27
Hallo Excel helpers,

Ik kan het niet op het forum vinden.
Ik heb 200+ selectievakjes in de cellen van kolom A, beginnende bij A2. Dus iedere cel heeft een eigen selectievakje. Soms wil ik alle selectievakjes tegelijk selecteren of deselecteren. Dit zou ik willen doen met een selectievakje in cel A1. Dus als ik het selectievakje in A1 selecteer (vinkje aan), dan gaan alle onderliggende selectievakjes op "WAAR" (vinkjes aan), als ik het selectievakje in A1 deselecteer (vinkje uit), dan gaan alle onderliggende selectievakjes op "ONWAAR" (vinkjes uit).
De selectievakjes komen uit de werkbalk "Formulieren". Niet uit de werkbalk "Werkset Besturingselementen".
Ik kom er niet uit... Ik heb het gevoel dat ik met de selectievakjes uit de werkbalk "Werkset Besturingselementen" moet gaan werken...
Ohja, op mijn werk zitten we nog met Excel 2003.
 
Laatst bewerkt:
Koppel onderstaande macro eens aan het selectievakje in A1.
Code:
Sub hsv()
Dim i As Long
For i = 2 To ActiveSheet.Shapes.Count
  ActiveSheet.Shapes(i).ControlFormat.Value = IIf(ActiveSheet.Shapes(1).ControlFormat.Value = 1, 1, -4146)
 Next i
End Sub
 
Hierbij nog een paar procedures voor acties met checkboxen...
Code:
Sub VerwijderCheckboxes()
Dim chkbx As CheckBox

    For Each chkbx In ActiveSheet.CheckBoxes
        chkbx.Delete
    Next
    
End Sub

Sub CheckboxOmkeren()
' keer de waarde van een checkbox om; aan wordt uit en uit wordt aan
Dim chkbx As CheckBox

    For Each chkbx In ActiveSheet.CheckBoxes
        chkbx.Value = (chkbx.Value = xlOff)
    Next
    
End Sub

Sub CheckboxAan()
' zet alle checkboxen op aan
Dim chkbx As CheckBox

    For Each chkbx In ActiveSheet.CheckBoxes
        chkbx.Value = xlOn
    Next
    
End Sub

Sub CheckboxUit()
' zet alle checkboxen op uit
Dim chkbx As CheckBox

    For Each chkbx In ActiveSheet.CheckBoxes
        chkbx.Value = xlOff
    Next
    
End Sub
 
Hé HSV & Ginger,

Het werkt! De codes van Ginger heb ik even in een documentje gestopt. Wellicht komen ze nog goed van pas! Bedankt!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan