VBA kolommen verbergen op basis van waarden in andere tabblad

[Nappie84]

Hoi

Simpele vraag maar ik kom er niet uit met het schrijven van een macro:
In tabblad Blad1 istaat in kolom L wk 01 tm wk 52.
Als deze waarde voorkomt in tabblad Blad2 dan moeten deze kolommen dus zichtbaar zijn. Ik zit zelf al te knoeien met EntireColumn.Hidden maar het lukt niet.

Voorbeeld. Als in tabblad1 wk 01 tm wk 10 voorkomt, dan moet in tabblad blad2 wk 01 tm 10 zichtbaar zijn maar wk 11 tm 52 moeten dan verborgen zijn.
Alvast bedankt voor de hulp!

Bekijk bijlage voorbeeld.xlsx

 

[VenA]

Je hebt lopen 'vogelen' met VBA en plaatst een .xlsx? Wat heb je zoal gedaan dan?

 

[Nappie84]

Excuses, had het verkeerde bestand geupload

 

[HSV]

Met zoiets als dit.

Sub Knop1_Klikken()
Dim sn, tb As Range, i As Long
sn = Blad1.Cells(1, 12).CurrentRegion
 Blad2.Columns.Hidden = False
  Set tb = Blad2.Columns(CLng(Replace(sn(1, 1), "wk ", "")) + 3)
    For i = 2 To UBound(sn)
      Set tb = Union(tb, Blad2.Columns(CLng(Replace(sn(i, 1), "wk ", "")) + 3))
    Next i
 tb.EntireColumn.Hidden = True
End Sub

 

[Nappie84]

Bedankt voor de hulp. Ik kan hiermee verder. Mijn vraag is hiermee opgelost.