Rijen verwijderen in kolom A indien een cel in die geen getal zijn en groter cijfers

[Veldenvdt]

Ik wil in kolom A alleen getallen overhouden die bestaan uit maximaal 3 cijfers. In kolom A staan nu behalve getallen < 4 cijfers, tekst, horizontale streepjes, lege cellen en getallen > 3 cijfers. Ik wil alleen de getallen van maximaal 3 cijfers overhouden. Het bereik moet variabel zijn.

[HSV]

Sub hsv()
Dim i As Long
 With Sheets("blad1")
  For i = .UsedRange.Columns(1).Rows.Count To 1 Step -1
    If WorksheetFunction.Or(Not IsNumeric(.Cells(i, 1)), Not .Cells(i, 1) < 1000, .Cells(i, 1) = "") Then
      .Cells(i, 1).EntireRow.Delete shift:=xlUp
     End If
    Next i
  End With
End Sub

[Veldenvdt]

Hallo Giga Senior,

Het werkt perfect. Toen ik gisteren voor de 1e keer dit forum gebruikte waren de batterijen van mijn toetsenbord leeg en kon ik met de grootste moeite nog iets op papier krijgen. De titel van de vraag klopte daarom ook niet. Toen ik probeerde de batterijen te wisselen van plaats (ik had geen nieuwe batterijen) werd het bericht al verzonden zonder dat ik dat wilde.
Knap dat je er toch wijs uit bent gekomen. Je hebt me super geholpen. Bedankt daarvoor.

Groeten

Theo

[HSV]

Bedankt voor je respons Theo.
Wil je zo vriendelijk zijn de vraag als opgelost te zetten.
Bvd.