Opret ny liste hvor navne kun står 1 gang

Det er ikke helt det du beder om, men måske lidt inspiration. Den nedenstående funktion kan bruges til at finde unikke celleværdier fra et område.

Hvis du f.eks. i A15 skriver 1 og i A16 2 osv. osv. Så kan funktionen kaldes ved i B15 at skrive:

=uniqueitem($A$3:$S$12;A15)

og kopiere denne celle. Herved frembringes en liste over unikke celleværdier.

Function UniqueItem(InputRange As Range, ItemNo As Long) As Variant
Dim cl As Range, cUnique As New Collection, cValue As Variant
    Application.Volatile
    On Error Resume Next
    For Each cl In InputRange
        If cl.Formula <> "" Then
            cUnique.Add cl.Value, CStr(cl.Value)
        End If
    Next cl
    UniqueItem = ""
    If ItemNo = 0 Then
        UniqueItem = cUnique.Count
    Else
        If ItemNo <= cUnique.Count Then
            UniqueItem = cUnique(ItemNo)
        End If
    End If
    On Error GoTo 0
End Function


Er det noget i den retning du søger? Hvis ja, så kan vi se på at tilpasse den til dit behov.

Den funktion køber jeg.
Jeg kan få de data frem jeg skal bruge med lidt justering.

Jeg er total grøn på eksperten.dk, så hvordan overfører jeg pointene til dig?

Det kræver lige at jeg svarer ;0)