Hoe een ander selectievakje uitvinken wanneer een selectievakje wordt aangevinkt in Excel?
In veel praktische scenario's, zoals het beheren van een lange aankooplijst in Excel, kun je situaties tegenkomen waarin je wilt zorgen dat slechts één optie kan worden geselecteerd binnen een specifieke categorie of groep. Bijvoorbeeld, als bepaalde categorieën het ingestelde budget overschrijden, moet je mogelijk items opnieuw selecteren zodat er slechts één selectievakje per groep blijft aangevinkt. Handmatig selectievakjes beheren in grote lijsten kan inefficiënt en foutgevoelig zijn, vooral naarmate het aantal categorieën groeit. Om dit proces te stroomlijnen en fouten te verminderen, kun je Excel zo instellen dat het aanvinken van een nieuw selectievakje binnen een groep automatisch het eerder geselecteerde selectievakje uitvinkt, zodat er altijd slechts één selectie per categorie is. Dit artikel biedt een stap-voor-stap handleiding over hoe dit te bereiken, waardoor je workflow efficiënter en betrouwbaarder wordt.
➤ Een ander selectievakje uitvinken wanneer een nieuw selectievakje wordt aangevinkt met VBA-code
Een ander selectievakje uitvinken wanneer een nieuw selectievakje wordt aangevinkt met VBA-code
Om het proces te illustreren, overweeg dan een situatie zoals in de video hierboven weergegeven. Je hebt tien selectievakjes gelabeld CheckBox1 tot CheckBox10, georganiseerd in drie groepen die verschillende aankoopcategorieën vertegenwoordigen.
✅ Groepsstructuur:
- Groep 1: CheckBox1, CheckBox2, CheckBox3
- Groep 2: CheckBox4, CheckBox5, CheckBox6, CheckBox7
- Groep 3: CheckBox8, CheckBox9, CheckBox10
Binnen elke groep mag slechts één selectievakje tegelijk worden geselecteerd. Wanneer een nieuw selectievakje wordt aangevinkt, worden de andere in dezelfde groep automatisch uitgevinkt – vergelijkbaar met het gedrag van radioknoppen, maar met selectievakjes.
🧩 Stappen om de VBA-oplossing toe te passen:
- Open de VBA-editor: Klik met de rechtermuisknop op het bladtabblad waar de selectievakjes staan, en kies dan Code Weergeven.
- Plak de volgende code in het coderaam van het werkblad:
- Sluit de VBA-editor (Alt + Q) en ga terug naar Excel om de selectievakjes te testen.
Dim xBol As Boolean
'Updated by Extendoffice
Private Sub CheckBox1_Change(): SetCheckBoxes "CheckBox1": End Sub
Private Sub CheckBox2_Change(): SetCheckBoxes "CheckBox2": End Sub
Private Sub CheckBox3_Change(): SetCheckBoxes "CheckBox3": End Sub
Private Sub CheckBox4_Change(): SetCheckBoxes "CheckBox4": End Sub
Private Sub CheckBox5_Change(): SetCheckBoxes "CheckBox5": End Sub
Private Sub CheckBox6_Click(): SetCheckBoxes "CheckBox6": End Sub
Private Sub CheckBox7_Click(): SetCheckBoxes "CheckBox7": End Sub
Private Sub CheckBox8_Click(): SetCheckBoxes "CheckBox8": End Sub
Private Sub CheckBox9_Click(): SetCheckBoxes "CheckBox9": End Sub
Private Sub CheckBox10_Click(): SetCheckBoxes "CheckBox10": End Sub
Private Function SetCheckBoxes(mCheckBoxName As String)
Dim xAllArr, xArrItem
Dim xI, xJ
If Not xBol Then Exit Function
xAllArr = Array("CheckBox1,CheckBox2,CheckBox3", _
"CheckBox4,CheckBox5,CheckBox6,CheckBox7", _
"CheckBox8,CheckBox9,CheckBox10")
For xI = LBound(xAllArr) To UBound(xAllArr)
If InStr(xAllArr(xI), mCheckBoxName) > 0 Then
xBol = False
xArrItem = Split(xAllArr(xI), ",")
For xJ = LBound(xArrItem) To UBound(xArrItem)
If xArrItem(xJ) <> mCheckBoxName Then
Me.OLEObjects(xArrItem(xJ)).Object.Value = False
End If
Next
End If
Next
xBol = True
End Function
Private Sub Worksheet_Activate(): xBol = True: End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range): xBol = True: End Sub📌 Belangrijke opmerkingen:
- Zorg ervoor dat de eigenschappen van de naam van je selectievakjes (niet labels) exact overeenkomen met de namen in de code.
- Groeperingen worden gedefinieerd in de array-regel:
xAllArr = Array("CheckBox1,CheckBox2,CheckBox3", "CheckBox4,CheckBox5,CheckBox6,CheckBox7", "CheckBox8,CheckBox9,CheckBox10") - Deze VBA werkt alleen met ActiveX Control selectievakjes, niet met Form Controls.
- Macros moeten zijn ingeschakeld om deze automatisering te laten werken.
📺 Demo:
🔍 Probleemoplossingstips:
- Controleer op geen dubbele selectievakjesnamen.
- Zorg ervoor dat alle selectievakjes ActiveX Controls zijn.
- Elke procedure voor een selectievakje moet correct
SetCheckBoxesaanroepen. - Scenario's tussen werkbladen vereisen aanpassing via klassemodules of gecentraliseerde controle.
💡 Alternatieve oplossing: Je kunt Optieknoppen van Form Controls gebruiken voor ingebouwd enkel-selectiegedrag. Echter, voor geavanceerde lay-outs en logicacontrole bieden VBA + Selectievakjes meer flexibiliteit.
✨ Tip: Tools zoals Kutools voor Excel bieden GUI-gebaseerd selectievakjebeheer voor gemakkelijker instelling zonder codering.
Demo: Een ander selectievakje uitvinken wanneer een selectievakje wordt aangevinkt in Excel
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen