Har skrivit denna lösning på ett annat excelforum, den är inte optimal, men den löser iallafall om man har en lista i kolumn A att sortera ut alla unika värden samt skapar en rullgardinslista som är sorterad i alfabetisk ordning.
I kolumn A har jag i cell a1 till a24 dessa värden;
-
| Äpple1 |
| Jordgubb |
| Persika |
| Äpple1 |
| Äpple2 |
| Persika |
| Äpple1 |
| Äpple1 |
| Dadlar |
| Banan |
| Banan |
| Persika |
| Äpple1 |
| Jordgubb |
| Persika |
| Apelsin |
| Äpple2 |
| Persika |
| Äpple1 |
| Äpple1 |
| Dadlar |
| Päron |
| Banan |
| Apelsin2 |
i kolumn B står det i cell B1 =A1 och i cellen B2 har jag följande formel kopierat formeln nedåt till B1000
{=IF(ISERROR(MATCH(0;COUNTIF(B$1:B1;$A$1:$A$1000&"");0));"";INDEX(IF(ISBLANK($A$1:$A$1000);"";$A$1:$A$1000);MATCH(0;COUNTIF(B$1:B1;$A$1:$A$1000&"");0)))}
i kolumn C har jag följande formel kopierat in i cell C1 och sedan kopierat formeln ned till cell C1000
=IF(B1="";"";COUNTIF($B$1:$B$1000;"<"&(TEXT(B1;"#")&TEXT(MIN($B$1:$B$4);"#")))+COUNTIF($B$1:B4;(TEXT(B1;"#")&TEXT(MIN($B$1:$B$4);"#"))))
i kolumn D har jag följande formel kopierat in i cell D1 och sedan kopierat formeln ned till cell D1000
=IF(C1="";"";OFFSET(B$1;MATCH(SMALL($C$1:$C$1000;ROW()-ROW(B$1)+1);$C$1:$C$1000;0)-1;0))
och slutligen i Kolumn E har jag i cellen E1 gjort en datavalidering och skapat en lista med namndefination =sorterat
Namndefinationen har skapats med följande kod och namngetts till sorterat
=OFFSET(Sheet1!$E$1;;;SUMPRODUCT(--(LEN(Sheet1!$E$1:$E$1000)>0));1)
Rullgardinslistan skapar med andra ord;
| Apelsin |
| Apelsin2 |
| Banan |
| Dadlar |
| Jordgubb |
| Persika |
| Päron |
| Äpple1 |
| Äpple2 |
Hälsningar Filén