Macro loopt vast

[SeRoMaRu]

Beste,

Ik heb een VBA code die volgens mij zou moeten werken. Het probleem is echter dat ik hem niet goed kan testen omdat hij telkens vast loopt als ik de Macro wil draaien. Wanneer ik weinig data doe geeft hij geen foutmelding, maar bij veel gegevens loopt het wel vast. Het verwijderen van gegevens is sowieso zwaar, misschien is hier een andere oplossing voor?

Wie kan mij helpen?

Met vriendelijke groet,
Rob

With Sheets("Alarmloggingen").Select
            ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9, Criteria1:="<>"
    With Application
            .Calculation = xlCalculationManual
                ActiveSheet.Range(.Range("A2:I2"), .Range("A2:I2").End(xlDown)).EntireRow.Delete
            .Calculation = xlCalculationAutomatic
    End With
            ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9
    End With

 

[edmoor]

Zet voor de With Sheets eens de opdracht Application.ScreenUpdating = False
Na de End With van die With Sheets zet je dan Application.ScreenUpdating = True

Probeer het dan nog eens.

 

[SeRoMaRu]

Nog geen resultaat...

 

[edmoor]

Loopt 'ie vast met een foutmelding of loopt 'ie echt gewoon zodanig vast dat 'ie niks meer doet?

 

[SeRoMaRu]

Bedankt voor de reactie!

Hij loopt zodanig vast dat Excel niet meer reageert en eerst afgesloten moet worden voor hij afgesloten is. Geen foutmelding of bugmelding.

 

[Roncancio]

Dit ziet er nogal raar uit:

ActiveSheet.Range(.Range("A2:I2"), .Range("A2:I2").End(xlDown)).EntireRow.Delete

De Ranges die tussen ( ) staan horen hier geen . te krijgen.
Bovendien heeft het geen nut om naar cel I2 te verwijzen omdat je toch de hele rij verwijdert.

Range("A2", Range("A2").End(xlDown)).EntireRow.Delete

Met vriendelijke groet,


Roncancio

 

[SeRoMaRu]

Heel erg bedankt, hij werkt iets sneller!!!!