Duplicaten verwijderen in tabel

[9781]

Ik heb even een vraag over het verwijderen van duplicaten in een tabel via VBA, zie ook bijgevoegd bestand.

Als ik de tabel selecteer en dan via hulpmiddelen voor tabellen kies voor duplicaten verwijderen, worden de dubbele boeken keurig verwijderd. Ik heb deze actie ook opgenomen met de macrorecorder, maar zodra ik de macro uitvoer krijg ik een foutmelding op het moment dat de duplicaten verwijderd moeten worden.

Ik de bewuste regel bekeken, maar ik kijk waarschijnlijk over de "fout"heen: ActiveSheet.Range("Tabel4[#Alles]").RemoveDuplicates Columns:=1, Header:= xlYes

Ik hoop dat iemand mij verder kan helpen.

Groet,

Theo

 

[DigiCafee]

Vervang die

Tabel4[#Alles]

eens gewoon door

Boekenlijst

want die heb je in je names staan ...

 

[Mde]

probeer het is zo

 ActiveSheet.Range("Tabel4").RemoveDuplicates Columns:=1, Header:= xlYes

 

[JEC.]

Of zo

Sub j()
ActiveSheet.ListObjects("Tabel4").Range.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

 

[9781]

Allemaal erg bedankt, alle oplossingen werken. Hoe simpel kan het eigenlijk zijn.