Obs att du måste ta fram din val-lista på ett annat blad, när du filtrerar din huvudlista så döljer du en massa rader. Det påverkar allt annat som står på bladet. Även sånt som står utanför tabellen.

Metoder:

om du har nyaste Excle kan du använda formeln UNIK()

https://support.office.com/sv-se/article/unik-funktionen-unik-c5ab87fd-30a3-4ce9-9d1a-40204fb85e1e

I äldre excel är det krångligare. Du kan få fram en engånglista genom att kopiera "uppgiftskolumnen" någon annan stans och sedan använda

DATA->dataverktyg->ta bort dubletter.

Men det är en engångsgrej som saknar kopppling till underligande data (dvs om du skriver in nya uppgifter så blir listan inaktuell).

Det går även att göra krångliga matrisformler, men de är ärligt talat inte specielt roliga att jobba med:

https://exceljet.net/formula/extract-unique-items-from-a-list

Eller en pivottabell där du släpar "Uppgift" till "rader"

 Hej A nony Mouse,

Tack för hjälpen. Det var tyvärr inte nyaste Excel jag arbetar med.
Jag tycker om redovisningssättet med en pivottabell men det verkar inte uppdaterar sig vid tillkommande uppgifter, finns denna möjlighet? Som du redan skriver, engångsfunktioner är lite tråkigt när man behöver göra om det hela vid varje tillkommande ny uppgift.

//Oliver

Det går juh alltid att vba det. Nedan kod ska läggas in i en modul i vba editorn (Alt+f11). Högerklick på projekt för att ingofa modul.

Därefter kan du använda funktionen från gränssnittet i valfri cell:
=INDEX(UniQues(tblData[Ord]);RAD(A1))
gewr di g första unika värdet i kolumnen ord för tabellen tblData.. Dra funktionen nedåt för att få ut hela kolumnen med endast unika värden.

Mvh
Christian


Public Function UniQues(rng As Range) As Variant

Application.EnableEvents = False

Dim arr As Variant: arr = rng
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
Dim i As Long, mCount As Long

For i = 1 To UBound(arr, 1)
If Not dict.exists(arr(i, 1)) Then
dict.Add arr(i, 1), i
mCount = mCount + 1
End If
Next i

i = 1

Dim tmparr As Variant: ReDim tmparr(1 To mCount)
Dim key As Variant
For Each key In dict.keys
tmparr(i) = key
i = i + 1
Next key

UniQues = tmparr

Application.EnableEvents = True

End Function