Kolom verbergen bij waarde

[dch]

Dag allemaal,

Ik heb de vorige forumvragen en -antwoorden doorgelezen, maar niet helemaal gevonden wat ik zocht. Mijn pogingen leiden ook nergens toe.

Mijn vraag is hoe ik de kolommen J tot R kan verbergen wanneer de waarden DV, DA of TO in de cel D11 staat? Wanneer de waarde CR in deze cel D11 staat, zouden deze kolommen tevoorschijn moeten komen. Ik heb een bestand in bijlage gezet ter voorbeeld.

Alvast super bedankt.

Bekijk bijlage Registratie.xlsx

 

[HSV]

Bv.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$D$11" Then Columns("J:R").Hidden = Not Target.Value = "CR"
End Sub

 

[dch]

Bv.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$D$11" Then Columns("J:R").Hidden = Not Target.Value = "CR"
End Sub

Geweldig! Precies wat ik zocht. Ik zocht het zelf blijkbaar véél te ver!
Heel erg bedankt!