VBA code voor verwijderen van rijen

[Warme bakkertje]

Kan iemand onderstaande eens testen. Hij plaatst 16250 rijen in kolom A en evenveel rijen om en om in kolom E. Naderhand gaat hij met SpecialCells de lege rijen in kolom E wissen. Zet ik het aantal rijen hoger dan wist hij alles. Graag zou ik weten of dit een beperking is van XL zelf of van mijn PC.

Sub tst3()
    For i = 1 To 16250
        Cells(i, 1) = i
    Next
    For i = 1 To 16250 Step 2
        Cells(i, 5) = i
    Next
    Range("E1:E" & Cells(Rows.Count, 5).End(xlUp).Row).SpecialCells(4).EntireRow.Delete
End Sub

 

[Cobbe]

Doet het niet, wist alles en zet in A1 het aantal te bewerken rijen.
in E2007

Cobbe

 

[Niels28]

Een aan passing van de code van cobbe,

Sub Macro2()

    Range("G1:G5150").AutoFilter
    ActiveSheet.Range("$G$1:$G$5150").AutoFilter Field:=1, Criteria1:="="
    Rows("1:5150").Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$G$1:$G$5136").AutoFilter Field:=1

End Sub

Niels

 

[Warme bakkertje]

Heb ook eens getest op een pc met XL2007 en 16250 rijen is blijkbaar toch een max, enkel de snelheid wisselt nl 9sec op XL2007 en 17.5sec op XL2002SP3 (beiden met 4Mb Ram)

 

[cow18]

@ Warm Bakkertje, dat is een probleempje binnen excel, hij kan ergens maar 8100 en een beetje areas in een keer aan, dus daar ben je vermoedelijk over gegaan.
Probeer het anders eens met 32000 rijen in 2 blokken van telkens 16.000 en dan lukt het wel.


http://support.microsoft.com/default.aspx?scid=kb;en-us;832293&Product=xlw2K
http://www.worksheet.nl/forumexcel/afgehandelde-vragen/64751-specialcells-blank.html

 

[Niels28]

Sub Macro2()

Range("G1:G5150").AutoFilter
ActiveSheet.Range("$G$1:$G$5150").AutoFilter Field:=1, Criteria1:="="
Rows("1:5150").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$G$1:$G$5136").AutoFilter Field:=1

End Sub

Deze werkt ook alleen maar tot 16250

Niels