Macro verwijder regels

[michaelg88]

Beste mensen,

Ik gebruik onderstaande macro regelmatig om overbodige regels te verwijderen. Bij het voorbeeld hieronder draait het dus om "DB" in kolom G.

Application.ScreenUpdating = False


For I = Range("G1048576").End(xlUp).Row To 1 Step -1
If Range("G" & I) = "DB" Then
Rows(I).EntireRow.Delete
End If
Next

Application.ScreenUpdating = True


Nu zorgt dit om 1 of andere reden in 1 van me sheets voor een probleem aangezien alleen in deze sheet het 1,5 minuut duurt voordat de macro klaar is. Heeft iemand een idee hoe ik dit kan oplossen? Op andere sheets heb ik dit probleem niet

 

[Cobbe]

Kan het zijn dat je kolom G om een of andere reden niet echt leeg is onder de gegevens?

 

[michaelg88]

Heb ik ook naar gekeken, is helaas niet het geval.

 

[Cobbe]

Hoeveel regels heb je dan in gebruik in kolom G?

 

[michaelg88]

Ik heb het probleem al gevonden. Ik heb een formule op een andere sheet toegepast die beoordeeld of een bepaalde regel al eerder gebruikt is. Excel had daar duidelijk moeite mee omdat elke keer als een regel verwijderd zou worden de formule opnieuw uitgevoerd werd.

Work around is nu om voor het begin van de macro bij deze formule het "=" teken weg te halen, en einde weer terug te plaatsen.

In ieder geval bedankt voor het meedenken