alle verborgen rijen verwijderen

[Meurik]

Is het mogelijk om, met behulp van een macro, alle verborgen rijen binnen een bepaald bereik (bv rijen 1:1000) te verwijderen ?

 

[mart37]

Zoek je zoiets:

For Each rij In Rows("1:1000")
    If rij.Hidden Then rij.EntireRow.Delete
Next

 

[sylvester-ponte]

deze doet het ook als er meerdere rijen achter elkaar verborgen zijn:

Sub VerborgenRijenVerwijderen()
    Dim VerborgenRijen As Range
    For Each rij In Rows("1:1000")
        If rij.Hidden Then
            If VerborgenRijen Is Nothing Then
                Set VerborgenRijen = rij
            Else
                Set VerborgenRijen = Union(VerborgenRijen, rij)
            End If
        End If
    Next
    VerborgenRijen.EntireRow.Delete
End Sub

groet sylvester

 

[Meurik]

Met mijn dank aan beiden, zal de 2 opties uittesten !:thumb: