Opgelost regel in een tabel verwijderen met een bepaalde inhoud in een van de kolommen

[Friend]

HSV, dank je ook voor jouw reactie en code. Werkt goed en inderdaad per keer even klikken. Thanks

 

[HSV]

@emields, @Friend,

Zoek de verschillen.

Sub Knop1_Klikken()  'hsv
Application.DisplayAlerts = 0
 With ActiveSheet.ListObjects(1).Range
    .AutoFilter 3, 8
    .Offset(1).Delete
    .AutoFilter 3
 End With
End Sub

Sub Knop1_Klikken()  'emields
Application.EnableEvents = True
Application.ScreenUpdating = False
On Error GoTo niets
With ActiveSheet.ListObjects(1).DataBodyRange
 x = .Columns.Count
 .AutoFilter 3, "8"
    .SpecialCells(12).Select
    .AutoFilter 3
    Selection.Delete xlUp
    [a1].Activate
    Exit Sub
niets:
MsgBox "er is niets gevonden"
.AutoFilter

Exit Sub
Application.ScreenUpdating = True
End With
End Sub

 

[edmoor]

Die van mij in #2 verwijderd ook alle regels met een single 8.

 

[snb]

In https://www.helpmij.nl/forum/thread...ud-in-een-van-de-kolommen.974227/post-6412139 heb ik nog 1 parameter toegevoegd, zodat alleen naar 8 gezocht wordt.
Ter vermijding van afwezige lege regels:

Sub CommandButton1_Click()
  With ListObjects(1).DataBodyRange
      .Replace 8, "=1/0",1
     Intersect(.SpecialCells(-4123,16).EntireRow, .Offset).Delete
  End With
End Sub

 

[Friend]

Blij met al jullie oplossingen. Te meer daar het ook andere opties geeft. Zoals ook de lege regels en de regel waar in kolom C een 8 voorkomt in combinatie met andere tekst verwijderen. Maar terug naar het doel van mijn vraag geeft de code van Edmoor het voor mij gewenste resultaat omdat ik alleen de rij(en) wil verwijderen waar heel specifiek alleen een 8 staat. Thanks voor al jullie input!!