Kolom verbergen op basis van cel waarde

[japdonk]

Hallo,

Ik wil wanneer de waarde in cel E30, x is dan verbergt hij de hele kolom E.

Dit is wat ik heb:

Private Sub Hide_column1(ByVal Target As Range)
If Range("E30").Value = "x" Then
Columns("E").EntireColumn.Hidden = True
Else
Columns("E").EntireColumn.Hidden = False
End If
End Sub

Helaas werkt het niet.
De code staat in de programmacode van het werkblad.

Alvast bedankt

 

[leofact]

De code is goed, maar het gebruik van het event niet.
Zo werkt het wel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("E30").Value = "x" Then
        Columns("E").EntireColumn.Hidden = True
    Else
        Columns("E").EntireColumn.Hidden = False
    End If
End Sub

mvg Leo

 

[japdonk]

ahaa, bedankt!

 

[snb]

en zo nog beter

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Columns(5).Hidden = Range("E30").Value = "x"
End Sub