Macro: onder voorwaarde rijen zichtbaar/verbergen:

[Yasmin]

Beste Excellers,

Het lukt me niet om de juiste VBA code voor onderstaande opdracht te maken:

Als tekst in cel A1 = "Rood" verberg rij 10 t/m 19
Als tekst in cel A1 = "Wit" verberg rij 5 t/m 9 en verberg rij 15 t/m 19
Als tekst in cel A1 = "Blauw" verberg rij 5 t/m 14

Wie kan/wil me hiermee verder helpen?

 

[HSV]

Bv. met:

Private Sub Worksheet_Change(ByVal Target As Range)
 if target.address ="$A$1" Then
Application.ScreenUpdating = False
Rows.Hidden = False
 Select Case Target
    Case "Rood"
      Rows("10:19").Hidden = True
    Case "Wit"
      Rows("5:9").Hidden = True
      Rows("15:19").Hidden = True
    Case "Blauw"
      Rows("5:14").Hidden = True
 End Select
End If
End Sub

 

[Yasmin]

Het werkt perfect.

Bedankt Harry