Meerdere rijen verbergen

[Willem99]

Ik heb zoek een code die automatisch rijen verbergt.
Nu heb ik wel wat in elkaar gezet, alleen krijg ik deze niet werkend.

De bedoeling is dat de code automatisch regels verbergt waarbij een bepaalde celwaarde uit die regel nul is.

Kan iemand mij helpen?

Private Sub Worksheet_Change()

For Each c In Range("D8:D15")
If c.Value = 0 Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If

End Sub

 

[Warme bakkertje]

Verwijderen (Delete) is helemaal iets anders dan verbergen (Hidden).
Zulke zaken doe je ook steeds in omgekeerde volgorde nl van onderaan naar boven ipv zoals jij nu van boven naar onder.

 

[Willem99]

Je hebt gelijk, ik heb mijn vraagstelling veranderd.

Maar dan nog de vraag, wat is niet goed aan mijn code?

 

[Warme bakkertje]

1. Ontbrekende proceduredeclaratie (groene tekst)
2. For zonder Next (rode tekst)

Private Sub Worksheet_Change([COLOR="#008000"]ByVal Target As Range[/COLOR])

    For Each c In Range("D8:D15")
        c.EntireRow.Hidden = IIf(c.Value = 0, True, False)
    [COLOR="#FF0000"]Next[/COLOR]

End Sub

 

[Willem99]

Dankje, werkt prima zo