Kolommen weergeven en verbergen adhv selectievakje

[WillemExcel]

Hallo allemaal,

Ik wil graag 2 kolommen verbergen adhv een selectievakje. Dit selectievakje werkt met 'WAAR' bij aangevinkt, 'ONWAAR' bij uitgevinkt. Ik wil graag dat de 2 kolommen bij 'ONWAAR' verborgen worden.

Alvast bedankt!

Groeten,
Willem

 

[edmoor]

Da's geen probleem. En met een voorbeeldbestandje wordt het nog voor je gemaakt ook

 

[WillemExcel]

Hoi Edmoor,

Bedankt voor je snelle reactie. Heb een deel van mijn bestand in de bijlage geplaatst. De gele kolommen V en W moeten wegvallen bij het aanvinken.

Alvast bedankt!
Groeten,
Willem

 

[WillemExcel]

Excuses!!

Nu met bijlage..

Bekijk bijlage Voorbeeld Helpmij forum.xlsx

 

[Cobbe]

Zet dit achter je werkblad:

Private Sub Worksheet_Calculate()
 Columns("V").Hidden = [A17] = True
 Columns("W").Hidden = [A17] = True
End Sub

 

[edmoor]

Of zo met een echte checkbox:
Bekijk bijlage Voorbeeld Helpmij forum-1.xlsm

Maar dan zou een ToggleButton een betere keuze zijn.

 

[WillemExcel]

Het werkt!
Wist nog even niet hoe ik de code erin kon zetten, maar dat is me ook gelukt.
Bedankt voor jullie hulp.

Groeten,
Willem

 

[WillemExcel]

De oplossing van Cobbe leek goed te werken, maar het model is nu ineens beveiligd tegen bewerken.. Ik kan Ctrl Z ook niet meer gebruiken. Als ik de codes uit het werkblad haal, dan blijft het probleem.

Heeft iemand hier een oplossing voor?

Groeten,
Willem

 

[snb]

    Columns("V:W").Hidden = [A17]

zonder voorbeeldbestand geen idee.

 

[edmoor]

Het beveiligen van een blad of document heeft ook helemaal niets met de code van Cobbe te maken.

 

[Cobbe]

Heb het eens in het bestand toegepast.