VBA Check/Uncheck selectievakjes

[Digilike]

Kan iemand mij helpen met een VBA module? Ik heb een excelbestand met selectievakjes. Nu zag ik op internet een VBA module die ervoor zorgt dat je door te klikken op een van de vakjes ervoor kunt zorgen dat alle andere selectievakjes aan of uit gecheckt worden. Het principe is erop gebaseerd dat de andere vakjes dezelfde waarde overnemen als van het vakje waar je op klikt. Dat vakje heet Check Box 3.

De code in de module is als volgt

Sub AllCheckboxes()

Dim vinkje As CheckBox

For Each vinkje In ActiveSheet.CheckBoxes

 If vinkje.Name <> ActiveSheet.CheckBoxes("Checkbox 3").Name Then
       vinkje.Value = ActiveSheet.CheckBoxes("Checkbox 3").Value
        
  End If

Next

End Sub

So far so good. Maar als ik de macro run, dan krijg ik de volgende foutmelding (zie onderstaand screenshot). Aangezien ik geen verstand van VBA heb, kom ik hier niet uit.



O ja, nog even een screenshot van het Excel blad...



Hier het originele bestand...

 

[edmoor]

Zijn het worksheet checkboxes of ActiveX Checkboxes?
Je kan beter je document plaatsen in plaats van plaatjes.

 

[Digilike]

Het zijn worksheet checkboxes

 

[Digilike]

Het originele bestand...

 

[edmoor]

Waarom plaats je dat bestand niet gewoon hier?

 

[Digilike]

Waarom plaats je dat bestand niet gewoon hier?

Ik weet niet hoe ik een bestand rechtstreeks hier kan plaatsen, dus vandaar het wetransfer linkje https://we.tl/uPXCjbnPYs

Ah, nu heb ik die mogelijkheid wel ontdekt.

 

[Digilike]

Done, hierboven heb ik het originele bestand geplaatst.

 

[edmoor]

Je gebruikt onjuiste object namen:

Sub AllCheckboxes()
    Dim vinkje As CheckBox

    For Each vinkje In ActiveSheet.CheckBoxes
        If vinkje.Name <> "Check Box 3" Then
            vinkje.Value = ActiveSheet.CheckBoxes("Check Box 3").Value
        End If
    Next
End Sub

Dat is dus aan een plaatje niet te zien.
Plaats altijd een relevant voorbeeld document.

 

[Digilike]

Opgelost! Heel hartelijk dank! :thumb:

 

[Digilike]

Je gebruikt onjuiste object namen:

Sub AllCheckboxes()
    Dim vinkje As CheckBox

    For Each vinkje In ActiveSheet.CheckBoxes
        If vinkje.Name <> "Check Box 3" Then
            vinkje.Value = ActiveSheet.CheckBoxes("Check Box 3").Value
        End If
    Next
End Sub

Dat is dus aan een plaatje niet te zien.
Plaats altijd een relevant voorbeeld document.

Ik wist dat niet. Zal het onthouden voor een eventueel volgende keer.

 

[edmoor]

Graag gedaan

 

[HSV]

Dat gaat niet werken voor een Nederlandstalig Excel.
Bij mij heten ze selectievakje 3, 9,10 en 11.

Plaats de code in bladmodule van toepassing en koppel het aan het eerste vakje.

Sub AllCheckboxes()
Dim j As Long
  For j = 2 To CheckBoxes.Count
   CheckBoxes(j).Value = CheckBoxes(1).Value
  Next
End Sub