Externe gegevens sorteren met macro

[Juniorm01]

Goeden dag,

Ik kom op dit forum terecht omdat ik vrijwel altijd een antwoord vindt. Echter in dit geval; geen succes, maar ik hoop dat iemand mij wel kan helpen.

Ik importeer een lijst uit een ander excel bestand, in het bestand waar ik het nu over heb (externe gegevens importeren). Mijn macro maakt hier een mooie opmaak van, en geeft bepaalde data in de lijst een celkleur (datum tussen * en *).

Nu wil ik per sheet die gekleurde cellen gefilterd hebben. Dus voor b.v. sheet1; alleen ROOD.

Ik heb een macro opgenomen om dat te doen, maar die doet niet wat ik wil;

[CPP]Sub Macro8()
'
' Macro8 Macro
'

'
ActiveSheet.ListObjects("Tabel_Lijst_All_WH_Exp__Lijst_All_WH_Exp67811").Range. _
AutoFilter Field:=39, Criteria1:=RGB(255, 0, 0), Operator:= _
xlFilterCellColor
End Sub
[/CPP]

En in dit geval gaat het om "Tabel_Lijst_All_WH_Exp__Lijst_All_WH_Exp67811". Dit is de naam van de extern geimporteerde sheet, echter; Die getallen (67811) lijken variabelen waarvan ik niet begrijp waar die vandaan komen.

Als ik de macro opsla en de workbook opnieuw open, dan doet hij het ook niet meer, omdat die tabel schijnbaar weer een andere naam heeft.

Wie o wie weet hier de oplossing voor?

 

[snb]

Tenzij meer van dit soort geïmporteerde bestanden in dit werkblad:

Sub Macro8()
    Sheets(1).ListObjects(1).Range.AutoFilter 39, RGB(255, 0, 0), Operator:=xlFilterCellColor
End Sub

 

[Juniorm01]

het bestand maakt 4 sheets aan:

Expired goods
0 - 3 months
3 - 6 months
6 - 9 months

Sheet "Expired goods" moet in dit geval gefiltreerd worden op ROOD

Maar in alle sheets zijn dezelfde externe lijst geimporteerd.

Wat jij aandraagd werkt niet.. helaas