Voorwaardelijk verbergen en zichtbaar maken

[kriekos]

Beste vrienden,

Zie bijlage voor een vereenvoudigde probleemstelling.

Ik wil dat wanneer ik cel B8 een bepaalde waarde selecteer, enkel de rijen zichtbaar zijn die in kolom A deze waarde ook hebben.

Bijvoorbeeld: wanneer ik in B8 de waarde 'Categorie D' selecteer, zouden enkel rijen 15 en 18 zichtbaar mogen zijn. De andere zouden verborgen moeten worden.

Alvast bedankt!

Groeten

 

[Cobbe]

Deze zal dat voor u opknappen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B8")) Is Nothing Then Exit Sub
Rows.Hidden = False
For Each cl In Range("A11:A20")
If cl <> Range("B8") Then Rows(cl.Row).EntireRow.Hidden = True
Next
End Sub