waar gaat het mis... excel loopt vast

[wedoeneenpoging]

Hallo,

we doen een poging...

Zelf heb ik geen verstand van VBA maar door veel te google komen we meestal wel een heel eind.

Met onderstaande krijg ik wel het resultaat maar loopt excel nu regelmatig vast wanneer ik de macro uitvoer.

Wat doe ik verkeerd?

Alvast bedankt voor jullie hulp.



Sub RijenVerbergen()

Dim cell As Range
With Sheets("Sheet1")
For Each cell In .Range("D1: D5000")
If UCase(cell.Value) = "2" Then cell.EntireRow.Hidden = True
Next
End With


End Sub

 

[cow18]

mogelijk is een gewone autofilter al voldoende
in een loopje 5000 rijen aflopen is niet zo verstandig.
Daarnaast, is een rij al verborgen was voor de loop, maar niet meer de waarde "2" bevat, dan wordt die niet getoond.
En je gaat hier uit van een hoofdletter 2, ucase(2), wil je zoeken op een waarde 2 of een tekst 2 ???

Sub sneller()
   With Sheets("sheet1")
      On Error Resume Next
      If .AutoFilterMode = True Then .ShowAllData
      On Error GoTo 0
      .Range("D1:D5000").AutoFilter 1, "<>2"
   End With
End Sub

 

[wedoeneenpoging]

Bedankt

Super bedankt.:thumb:

zo is het snel en snel opgelost.

Slotje erop :d