Automatisch sortieren

[{Boris}]

Hi,

in Deiner Beispieldatei in F7:

=INDEX(C$7:C$31;VERGLEICH(KGRÖSSTE(D$7:D$31+ZEILE($1:$25)%%%;ZEILEN($1:1));D$7:D$31+ZEILE($1:$25)%%%;0))

und runterkopieren.

[00202]

Moin,  

auch auf die Gefahr hin am Ziel vorbeizuschießen (3 Möglichkeiten in Power Query):  
[attachment=51966]

Abfrage1:

Code:

let
    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
    SortTab = Table.Sort(Quelle,{{"Preis", Order.Descending}}),
    IndexH = Table.AddIndexColumn(SortTab, "Index", 1, 1, Int64.Type),
    Top5 = Table.FirstN(IndexH, 5),
    Preis5 = Top5{4}[Preis],
    ZuZeilen = Table.SelectRows(IndexH, each [Preis] >= Preis5),
    EntferneIndex = Table.RemoveColumns(ZuZeilen,{"Index"})
in
    EntferneIndex

Abfrage2:

Code:

let
    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
    SortTab = Table.Sort(Quelle,{{"Preis", Order.Descending}}),
    Top5 = Table.FirstN(SortTab,5)
in
    Top5

Abfrage3:

Code:

let
    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
    SortTab = Table.Sort(Quelle,{{"Preis", Order.Descending}}),
    DuplikateWeg = Table.Distinct(SortTab, {"Preis"}),
    Top5 = Table.FirstN(DuplikateWeg, 5)
in
    Top5

[Taunusmann]

Moin Boris,
ich habe es jetzt anders hinbekommen,
werde deine Lösung aber auch ausprobieren.
Schöne Pfingstfeiertage
Dieter