Excel -Automatisch regels verwijderen

[pja]

Ik importeer data vauit een ander progje, waardoor ik een namenlijst krijg,
Alle namen staan netjes onder elkaar maar doordat er
meerdere paginas zijn staan er ook gedeeltes van een soort koptekst tussen

Nu kan ik wel automatisch de lege regels verwijderen, met de volgende macro:

Sub Verwijder()

On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveSheet.UsedRange

End Sub

Maar hoe nu automatisch de regels verwijderen die beginnen met o.a.

 -> altijd een regel met dit tekentje
Page No. 2 -> regels die met Page beginnen
27.06.04 17:09 -> regels die met een datum beginnen

Het liefst natuurlijk een macro, waarbij alle lege regels en regels die beginnen met de drie voorwaarden hierboven in één keer te verwijderen valt.

Iemand een idee.. ?

PJA

 

[LucHeyndrickx]

Goedenavond,

Ik veronderstel dus dat je de A kolom wenst te controleren?

Sub test()
Dim lng As Long
For lng = Range("A65536").End(xlUp).Row To 1 Step -1
If IsDate(Cells(lng, 1).Value) = True Or Left(Cells(lng, 1), 4) = "Page" Then
Rows(lng).Delete
End If
Next
End Sub

Luc