Script om regels te verwijderen

[jan excel]

Hallo Experts,

Wie heeft er een VBA script voor mij om regels te verwijderen.
Zie bijlage dan is wel duidelijk wat precies de bedoeling is.

Bekijk bijlage vb 1.xlsx

Alvast bedankt.
jan E

 

[OctaFish]

Zoiets?

Sub DelRows()
    For i = Cells(1).CurrentRegion.Rows.Count To 1 Step -1
        If Cells(i, 1) = "type nr" Then Cells(i, 1).EntireRow.Delete
    Next i
End Sub

 

[snb]

Sub M_snb()
    With Cells(1).CurrentRegion
        .AutoFilter 1, "type nr"
        .EntireRow.Delete
        .AutoFilter
    End With
End Sub

of

Sub M_snb()
    Columns(1).replace "type nr",""
    columns(1).specialcells(4).entirerow.delete
End Sub

 

[jan excel]

Hoi OctaFish en snb,

Jullie scripts werken wel, echte aantal regels is in mijn project vele malen groter, ( 25000 regels)
Het duurt ontzettend lang alvorens de regels allemaal zijn verwijderd.

Kan dit Sneller?

 

[snb]

Is die laatste ook langzaam ?


vooraf toevoegen

Application.screenupdating=0
application.calculation=-4135

 

[jan excel]

Hoi allen,

Snb dit werkt inderdaad sneller, hier kan ik wel verder mee.


Bedankt.
Jan e