VBA kolommen verbergen

[hanshssnk]

Beste lezers,

Ik ben nieuw op deze forum en waarschijnlijk ben ik één van de vele die deze vraag stelt. Ik heb gekeken of ik mijn antwoord hier kon vinden, maar dat is me dus niet gelukt.

Wat ik graag wil:
Door middel van een selectie vakje (dus als ik deze aanvink) dat er dan kolommen op een ander tabblad zichtbaar worden.
Als ik het selectievakje uitvink dan moeten de zelfde kolommen op die andere tabblad verborgen zijn. De volgende code heb ik zelf gemaakt, maar die werkt dus niet Waar zit de fout?

Sub MCR_Verbergen()
If Checkbox19 = True Then
    Worksheets("Kolommen verbergen").Select
    Columns("L:M").Select
    Selection.EntireColumn.Hidden = False
    Range("L1").Activate
Else:
    Checkbox19 = False
    Worksheets("Kolommen verbergen").Select
    Columns("L:M").Select
    Selection.EntireColumn.Hidden = True
    Range("L1").Activate
    End If
End Sub

Als ik de macro wil uitvoeren krijg ik de melding:

compileerfout:
Sub of function is niet gedefinieerd


Alvast bedankt voor je hulp!:thumb:

Met vriendelijke groet,

Hans

 

[Cobbe]

Dit is voldoende voor zoiets, je hoeft enkel nog de bladverwijzing toe te voegen:

Private Sub CheckBox1_Change()
   Columns("L:M").EntireColumn.Hidden = CheckBox1
End Sub

 

[hanshssnk]

Beste Cobbe,

Ik dacht dat ik VBA wel door had. De verwijzing toegevoegd en hij gaat netjes naar het blad toe, alleen verbergt hij nog steeds kolommen op het eerste blad en niet op het tweede. Dit is de code zoals ik hem nu heb:

Private Sub CheckBox1_Change()
Sheets("Blad2").Activate
Columns("L:M").EntireColumn.Hidden = CheckBox1
End Sub

Moet denk ik toch eerst de basis beter doornemen

Groetjes,

Hans

 

[Cobbe]

Dat is allemaal niet zo erg, met vallen en opstaan leer je lopen.

Private Sub CheckBox1_Change()
Sheets("Blad2").Columns("L:M").EntireColumn.Hidden = CheckBox1
End Sub

De code zoals jij ze had gaf wel (en voerde ook uit) de opening van blad2 (Sheets("Blad2").activate)
daarna uitvoering van de volgende regel (Columns(L:M) .... maar vermits die checkbox op Blad1 staat voert hij die code ook uit op blad1.

Nu voert hij de code uit op blad2.

 

[hanshssnk]

Beste Cobbe,

Hij werkt. Bedankt! :thumb::d

Groetjes,

Hans