Kolommen zichtbaar maken / verbergen

[Evelthoven]

Goedemorgen,

Bijgaande macro heb ik gemaakt met behulp van informatie van dit forum maar helaas werkt deze niet.

Op het werkblad heb ik een knop gemaakt en ik wil via toggle de eerste keer een aantal kolommen verbergen en de volgende keer wil ik weer het hele werkblad zichtbaar kunnen maken.
De kolommen die bij de eerste keer aanklikken zichtbaar moeten blijven zijn B, C, P, Q, AE en AF. De rest moet verborgen worden.

Ik heb de volgende macro gemaakt, maar helaas werkt deze niet. Kan iemand deze zodanig aanpassen dat hij wel werkt ?

Sub Verbergen_kolommen()
'
' Verbergen_kolommen Macro
'
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Div. kosten").Select
Columns("A:A,D:O,R:AD").Hidden = Not Columns("A:A, D:O, R:AD").Hidden
Range("B1").Select
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Ik ben zeer benieuwd.
Alvast bedankt,

Groeten,
Eric

 

[Wigi]

Sub Verbergen_kolommen()
'
' Verbergen_kolommen Macro
'
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Sheets("Div. kosten").Select
    Range("B:C,P:Q,AE:AF").EntireColumn.Hidden = Not Range("B:C,P:Q,AE:AF").EntireColumn.Hidden
    Range("A1").Select
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Wigi

 

[Evelthoven]

Een mogelijke oplossing die ik heb gevonden is deze:

Sub Verbergen_kolommen()
'
' Verbergen_kolommen Macro
'
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Div. kosten").Select
        Columns("A:A").Hidden = Not Columns("A:A").Hidden
        Columns("D:O").Hidden = Not Columns("D:O").Hidden
        Columns("R:AD").Hidden = Not Columns("R:AD").Hidden
      Range("B1").Select
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Ik weet niet of dit een goede manier is. Misschien is er een betere, maar volgens mij werkt deze oplossing wel.

Gr.
Eric

 

[Evelthoven]

Wigi,

Bedankt voor je oplossing.
Wellicht heeft mijn 2e bericht die van jou gekruist.

Eric

 

[Wigi]

Wellicht heeft mijn 2e bericht die van jou gekruist.

Ja, dat klopt.

Graag ook steeds code tags plaatsen rond je code, zoals je in het tweede bericht in deze topic gedaan hebt. Dan wordt de code duidelijker leesbaar.

Graag gedaan.

Wigi