Verwijderen van rijen van een gefilterde tabel

[BarbaraC]

Beste,

Zie document in bijlage.

Ik wil in deze tabel alle rijen verwijderen in de tabel die overblijven na de Autofilter.
Helaas krijg ik de foutmelding "Method Delete van klasse Range mislukt".
Kan iemand mij een aangepaste versie bezorgen?

Verder ook het volgende:
Graag ook de twee voorwaarden (bij autofilter) als "OF" instellen, niet als "EN".

Alvast bedankt!

 

[snb]

Een virtuele bijlage ???

 

[BarbaraC]

Een virtuele bijlage ???

Mijn bestand was blijkbaar te groot. Oranje melding niet gezien.
Aangepast, dus nu OK. Zie bijlage.

 

[HSV]

Meer heb je niet nodig.

Sub verwijderen()
Set tblReport = Sheets("Report").ListObjects("T_REPORT3003")
 With tblReport.Range
        .AutoFilter tblReport.ListColumns("Relevant?").Index, "nee"
        .AutoFilter tblReport.ListColumns("Afdeling2").Index, "XXX"
        .Offset(1).EntireRow.Delete
        .AutoFilter
    End With
End Sub