Regels verwijderen, op basis van regel 1 (A)

[HWV]

Sub RijenInvoegen()
For i = 1 To 60000
If Cells(i, 1) = "Nummer" Then
Cells(i, 1).Rows.Delete
End If
Next i
End Sub

Ik heb deze code die zijn werkt doet, enkel je moet deze meerdere malen afspelen om tot een goed resultaat te komen.
Als ik in een lijst ( ongesorteerd ) op kolom 1 (A) zoekt naar "Nummer" en deze rij wil verwijderen slaat hij soms regels over en laat dan "Nummer" staan.
Als ik de lijst wel sorteer dan pakt hij ook maar stukjes die hij dan verwijderd.

Ik wil eigenlijk dat hij ALLE rijen met in kolom 1 (A) "Nummer" in één keer verwijderd.

Wat zie ik over het hoofd..
Wat doe ik verkeerd

Hebben jullie voor mij de juiste code. !

Alvast bedankt
HWV

 

[Cobbe]

Je moet van achter naar voor werken noor het verwijderen van regels:

Sub RijenInvoegen()
For i = 60000 To 1 step-1
If Cells(i, 1) = "Nummer" Then
Cells(i, 1).Rows.Delete
End If
Next i
End Sub

Succes, Cobbe

 

[HWV]

Probleem opgelost

Cobbe,

Bedankt voor je input, het werkt inderdaad.

"het zijn de kleine dingen die het hem doen, die het hem doen"

Groet
HWV