Vervolg vraag op: Unieke waarden uit een matrix in een lijst weergeven

[jerxjac]

Ik heb de volgende post gevonden en hier goed gebruik van kunnen maken:
• Unieke waarden uit een matrix in een lijst weergeven

Nu zou ik hier graag een aanvulling op maken maar kom er niet uit.
Onderstaande is de code die ik gebruik, deze code laat netjes op tab 'Group' de unieke lijst zien,
maar als ik op tab "E-nrs(filter)" een filter zet, dan laat deze lijst nog steeds de verborgen waarden zien.
Ik zou graag willen dat deze niet getoond worden,... ?!

Sub Unieke()
Sheets("Group").Range("A:A").ClearContents

For Each cl In Sheets("E-nrs(filter)").Range("E3:E1048576").SpecialCells(2)
If cl.Row <> 1 Then
If InStr(c01, cl.Value) = 0 Then c01 = c01 & "|" & cl.Value
End If
Next
Sheets("Group").Range("a1").Resize(UBound(Split(c01, "|")) + 1, 1).Value = WorksheetFunction.Transpose(Split(c01, "|"))
End Sub

Alle hulp is welkom

 

[dnties]

Niet dat ik een oplossing weet, maar de link naar die posting werkt niet. Graag Unieke waarden uit een matrix in een lijst weergeven gebruiken bij de verbetering.

Tijs.

 

[jerxjac]

Dank je voor de opmerking Tijs,
Link is nu aangepast!

 

[jerxjac]

Echt niemand die kan helpen?