Voorwaardelijk verbergen van kolommen (mbv ActiveX-besturingselement)

[heyman]

Ik was binnen het forum op zoek naar een oplossing om voorwaardelijk kolommen (en/of rijen) te verbergen.
Deze vraag was eerder gesteld en beantwoord in de volgende topic:

www.helpmij.nl/forum/showthread.php/625977-Voorwaardelijk-verbergen-van-kolommen

Hierin werd o.a. de volgende oplossing voorgesteld:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("G3").Value = 2 Then Columns("L:M").Hidden = True
If Range("G3").Value = 3 Then Columns("L:M").Hidden = False
End Sub

Een prima resultaat voor waar ik naar opzoek ben, ......maar:

Ik zou graag een "selectievakje" / "checkbox" uit de ActiveX-besturingselementen willen gebruiken, om aan te geven dat een deel van de sheet niet gebruikt hoeft te worden.

Als leek op het gebied van VB heb ik zelf e.e.a. omgewerkt, maar helaas niet met het juiste resultaat.

Op de een of andere manier reageert de sheet wel op een directe wijziging in de cel (hard in typen) maar niet op een wijziging via de checkbox.

Ik heb het voorbeeldje van wat ik heb gefabriceerd toegevoegd.
Bekijk bijlage Voorbeeld verbergen.xlsm

Hopelijk kan iemand mij helpen.

Alvast bedankt.

 

[HSV]

De event waar jij de code mee uitvoert is afhankelijk van target.
Als je de checkbox veranderd gebeurd er dus niets met target.
Zet onderstaande in hetzelfde moduleblad.

Private Sub CheckBox1_Click()
 Rows("20:25").Hidden = CheckBox1.Value
End Sub

 

[heyman]

Bedakt HSV. Hiermee is het gelukt. :thumb:

 

[heyman]

Ik heb uiteindelijk het volgende gebruikt

Private Sub CheckBox1_Click()
Rows("20:25").Hidden = True
If CheckBox1.Value = True Then
Rows("20:25").Hidden = False
End If
End Sub

 

[HSV]

Ik zie alleen verschil in lengte van de code, niet in het resultaat.

edit: je hebt het resultaat omgedraaid zie ik.

Private Sub CheckBox1_Click()
 Rows("20:25").Hidden = Not CheckBox1.Value
End Sub