kolom verbergen als celwaarde bevat

[Tweety1]

Hi,

Onderstaande code werkt alleen hoe kan ik dit uitbreiden met meerdere Value's


Een Cel bevat "Test" en een cel bevat "voorbeeld" dan alle twee kolomen verbergen

Sub kolommenverbergen()
    For Each cl In [A4:V4]
        cl.EntireColumn.Hidden = IIf(cl.Value ="Test", True, False)
    Next
End Sub

mvg

Kasper

 

[HSV]

cl.EntireColumn.Hidden = IIf(cl.Value = "Test" [COLOR=#FF0000]Or cl = "voorbeeld", [/COLOR]True, False)

 

[Tweety1]

thanks