1 selectievakje die meerdere selectievakjes bediend

[SlaV1nk]

Hoi allemaal,

Ik ben met een Excel projectje bezig en leer steeds meer over het programma!
Waar ik niet achter kom is hoe ik een selectievakje maak die meerdere vakjes bediend. Een soort "select all" maar dan niet voor alle vakjes. Kan ik dit simpel aan elkaar koppelen of moet ik er een VBA code inzetten?

Alvast bedankt!

Gr,
Wouter

 

[JeanPaul28]

Plaats eens een voorbeeld, met meer uitleg

 

[SlaV1nk]

Hey Jean-Paul,

Als voorbeeld: Ik heb in A3 t/m A9 selectie vakjes staan, deze zijn afzonderlijk van elkaar aan te vinken. Nu wil ik in A1 een selectie vakje hebben waarbij als ik die aanvink, alle selectievakjes aangevinkt worden.

Hoop dat het zo iets duidelijker is?

Mvg,

Wouter

 

[popipipo]

Met een voorbeeld wordt een excel bestand bedoelt.

Ik ben absoluut een vba specialist maar op deze manier moet het lukken.

 

[JeanPaul28]

We verwachten van de topic starter dat die zelf een excel voorbeeld plaatst, in bijlagen zoals ik het begrepen heb

 

[SlaV1nk]

Sorry haha, mijn eerste bericht hier

Maar wel gelijk goed geholpen! Popipipo, ik gebruik jouw code, die werkt perfect voor mij
bedankt voor de hulp, ik ga nog vaker van deze vraagbaak gebruik maken ben ik bang (met excel bestand als voorbeeld JP)

groeten,
Wouter

 

[emields]

Dit is ook een makkelijke

 

[snb]

Ter vereenvoudiging van de suggeestie van @popi

Sub Select_All()
    Range("F3,F7") = Range("F10")
End Sub

 

[snb]

@emiel

Vergeet vooral niet de cancel=true.
Ik werk liever met Webdings.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("b1:b9")) Is Nothing Then
        If Target.Address = "$B$1" Then
             Range("b1:b9").Value = IIf(Target = "a", "r", "a")
        Else
            Target = IIf(Target = "a", "r", "a")
        End If
        Cancel = True
    End If
End Sub