Niet aansluitende rijen verbergen

[KeBr]

In een werkblad wil ik een aantal niet aansluitende rijen verbergen en/of weer zichtbaar maken. Dit op basis van de waarde in C2

Als in C2 B.v. "4" staat moet rij 7, 16, 25, 34 verborgen worden.

Ik heb onderstaande code al, maar die werkt alleen op rij 7

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Activate
If Not Application.Intersect(Range("C2"), Range(Target.Address)) Is Nothing Then
Select Case Target.Value
Case Is = "4": Rows("7").EntireRow.Hidden = True
Case Is = "5": Rows("7").EntireRow.Hidden = False
End Select


End If
End Sub

 

[edmoor]

Doe het eens zo, en haal dat ActiveSheet.Activate er uit:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("C2"), Range(Target.Address)) Is Nothing Then
        Select Case Target.Value
            Case Is = "4": Range("A7, A16, A25, A34").EntireRow.Hidden = True
            Case Is = "5": Rows("7").EntireRow.Hidden = False
        End Select
    End If
End Sub

 

[KeBr]

Bedankt,

dit is precies wat ik nodig had. zie nu ook wat ik fout deed.