VBA: Lijst unieke waarden o.b.v. gegevens uit gedefinieerd bereik

[RoCompy87]

Hallo,

Ik zit met een volgens mij klassiek probleem, maar ik kom er echt niet uit... Ik heb een bereik gedefinieerd van 1 kolom, maar met een variabel aantal rijen. In dit bereik kunnen ook lege cellen voorkomen. Nu ben ik op zoek naar een VBA-code waarmee ik in een andere kolom een lijst krijg met unieke waarden van dat bereik. Wie kan me helpen? PS: Ik gebruik Excel 2007.

Alvast bedankt!

 

[sylvester-ponte]

hoi RoCompy87

moeten de lege cellen mee doen of juist niet?

zo wel dan kun je een macro opnemen met uitgebreid filter er in en dan een beetje aanpassen.

zo niet dan kun je het resultaat sorteren dan komt de lege cel beneden of boven te staan

succes

groet sylvester

 

[Warme bakkertje]

Sub UniqueList_A()
    Range("E1", Range("E65536").End(xlUp)).ClearContents
    Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
        Action:=xlFilterCopy, CopyToRange:=[E1], Unique:=True
    [E1] = "Kolom E"
End Sub

Sub UniqueList_C()
    Range("F1", Range("F65536").End(xlUp)).ClearContents
    With Range("C1", Range("C65536").End(xlUp))
        .Sort [C2]
        .AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[F1], Unique:=True
    End With
    [F1] = "Kolom F"
End Sub

 

[RoCompy87]

Rudi, bedankt! Het is gelukt :d