Macro lege rijen verbergen

[Nilsje]

Hallo

Ik ondervind problemen met een macro die in een ontvangen bestand zit.
Het gaat over een macro waarin lege rijen verborgen worden en alle rijen getoond worden.

Het script is het volgende:

Sub HideEmptyRows()
Dim i As Integer
For i = 9 To 570
If Cells(i, 5) = "Û" Then
If Trim(Cells(i, 5)) = "" Or Cells(i, 5) = 0 Then
Rows(i).Hidden = True
End If
End If
Next
End Sub

Ik heb geprobeerd van te achterhalen wat er fout zou kunnen zijn, maar ik vind het niet.
Hij voert in elk geval het gevraagde niet uit.
Er is nog een macro waar hij 'toon alle lijnen' zet, en dit voert excel wel uit.

Kan iemand mij daar verder mee helpen aub?

Heel erg bedankt!!

groetjes
Nilsje

 

[sylvester-ponte]

hallo Nilsje, welkom hier.

heb je ook een voorbeeld bestandje?
en kun je beschrijven wat er fout gaat?

verder zal er niet zo veel verboegen worden

eerst Cells(i, 5) = "Û" en daar na
If Trim(Cells(i, 5)) = "" Or Cells(i, 5) = 0 .
als de eerst regel waar is dan is de tweede regel alijd onwaar.
dus wordt er nooit iets verborgen.

 

[Nilsje]

Bekijk bijlage macro's.xls
Hallo

In bijlage heb ik het bestand waarover het gaat toegevoegd.
Onderaan staan er twee knoppen.
De eerste werkt niet, de tweede werkt perfect.

Ik ken eigenlijk niets van die macro's dus ik vind het super dat u mij wil helpen!!

Bedankt!

groetjes
Nilsje

 

[sylvester-ponte]

zo iets?

 

[Nilsje]

Heeeeeeeeeeeeeeeel erg bedankt!!

Het lukt perfect!!

groetjes
Nilsje

 

[HSV]

Zou dit niet passen?
Vele malen sneller voor het verbergen en weergeven.

Sub hsvverbergen()
 Sheet1.Columns(3).AutoFilter 1, "<>€"
End Sub

Sub hsvweergeven()
 Sheet1.ShowAllData
 End Sub