Opgelost Checkbox

[jverkerk]

Beste leden,
Bestandje komt van internet met uitleg.
Waarom werken de checkboxen niet zoals het zou moeten met vba.
Je kunt ze apart aanklikken maar ook allemaal tegelijk.
Wat doe ik fout.
Check

 

[roeljongman]

Er staan aanhalingstekens om "True" en "False" en dan zijn het teksten. verwijder de aanhalingstekens en het werkt.

 

[jverkerk]

@roeljongman , hij doet het nu prima.
Ik volgde precies de stappen van het filmpje.
Bedankt.

 

[roeljongman]

ik vermoed dat het in de Engelse versies wel werkt met aanhalingstekens omdat er in de cel TRUE wordt getoond maar in NL versie niet omdat er dan WAAR staat.

je zou voor de grap kunnen testen door "TRUE" te vervangen met "WAAR" en "FALSE" met "ONWAAR"

 

[edmoor]

Het gaat niet om tekst maar om Boolean waarden.
Dat is ook nog eens taal onafhankelijk.

Je kan die hele code wijzigen in dit:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "B5" Then
        Application.EnableEvents = False
        Range("B6:B15") = Target
        Application.EnableEvents = True
    End If
End Sub

 

[jverkerk]

Ook een goeie @edmoor, weer wat geleerd op mijn ouwe dag.

Bedankt allemaal.

 

[snb]

Je kan die hele code wijzigen in dit:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "B5" Then
        Application.EnableEvents = False
        Range("B6:B15") = Target
        Application.EnableEvents = True
    End If
End Sub

Omdat het adres van het target wordt gecontroleerd is dit voldoende ed:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$5" Then Range("B6:B15") = Target
End Sub

PS. in plaats van 'in dit', gebruik je 'hierin' of gewoon zonder 'dit'

 

[edmoor]

Die Application.EnableEvents opdrachten zijn inderdaad overbodig.

 

[jverkerk]

Werkt ook prima @snb
Ook bedankt voor de toevoeging.

 

[jverkerk]

@snb
Ik begrijp niet helemaal waarom de crash optrad toen ik de "EnableEvents" wegliet. Ik vraag me af waarom jouw versie de crash niet veroorzaakt. Bedankt.