Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Auflisten der 10 kleinsten Werte eines Bereichs
#1
Guten Abend,

nachdem ich bei meinem letzten Problem schon super Hilfe bekommen habe, stehe ich jetzt vor dem Nächsten:
Ich versuche aus einem Wertebereich, bestehend aus 2 Zeilen und einigen Spalten die 10 kleinsten Werte (auch doppelt vorkommende) aus Zeile 1 aufzulisten. Dazu dann zu jedem der 10 Werte die zugehörige Beschreibung aus Zeile 2. Mit WVERWEIS wird leider immer nur der erste gefundene Wert beschrieben. Habe mich an verschiedenen Matrixformeln versucht und es leider nicht hinbekommen..
Ich konnte diese Aufstellung händisch durch Kopieren und Transponieren sowie anschliessendes Filtern erzielen, möchte aber diese Zwischenschritte vermeiden damit bei einer Änderung der Daten diese Zwischentabelle nicht erneut erstellt werden muss.

LG Wolfgang


Angehängte Dateien Thumbnail(s)
   

.xlsx   Sortieren und Auflisten.xlsx (Größe: 10,73 KB / Downloads: 10)
Antworten Top
#2
Hallo Wolfgang

Schade dass die Daten nicht in Zeilen stehen. Dann hätte eine Pivot-Tabelle gereicht.
Arbeitsblatt mit dem Namen 'Tabelle1'
 ABCDE
1Wert31263334
2Beschreibung0001000200030004
3 31263334,00001
4     
5     
6WertBeschreibung   
7250062   
8260002   
9260011   
10260014   
11260026   
12260056   
13260064   
14270023   
15270029   
16270035   

ZelleFormatWert
A7025,000063

ZelleFormel
B3=B1+SPALTE()%%%
A7=AGGREGAT(15;6;$B$3:$BS$3;ZEILE(A1))
B7=INDEX($2:$2;VERGLEICH(A7;$3:$3;0))
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg
Wir sehen uns!
... Detlef

Meine Beiträge können Ironie oder Sarkasmus enthalten.

[-] Folgende(r) 1 Nutzer sagt Danke an shift-del für diesen Beitrag:
  • st3inadler
Antworten Top
#3
Hallo,

nur aus Interesse:

Top-10 können auch mit

- Pivot-Tabelle
-Autofilter (mit vba)

angezeigt werden. Ist das in deinem Fall nicht möglich?

mfg
Antworten Top
#4
(11.05.2016, 08:36)Fennek schrieb: Hallo,

nur aus Interesse:

Top-10 können auch mit

- Pivot-Tabelle
-Autofilter (mit vba)

angezeigt werden. Ist das in deinem Fall nicht möglich?

mfg

Hallo, nur aus  Interesse: kannst du das an diesem Beispiel mal zeigen..?
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#5
Hallo,

ginge auch so:

Arbeitsblatt mit dem Namen 'Tabelle1'
 AB
425,00630062
526,00030002
626,00120011
726,00150014
826,00270026
926,00570056
1026,00650064
1127,00240023
1227,0030029
1327,00360035

ZelleFormel
A4{=KKLEINSTE($B$1:$BS$1+SPALTE($B$1:$BS$1)%%;ZEILE(A1))}
B4=INDEX($2:$2;REST(A4;1)*10000)
Achtung, Matrixformel enthalten!
Die geschweiften Klammern{} werden nicht eingegeben.
Verlassen Sie den Zelleneditor mit Strg+Shift + Enter, statt Enter alleine.
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#6
Hallo,

per Autofilter können die x-größten, bzw x-kleinsten Werte einer Tabelle gefiltert werden.

Für Top-10:


Code:
Sub Schaltfläche1_Klicken()
'Filter setzen
With ThisWorkbook.Sheets("Tabelle1").Cells(1).CurrentRegion
.AutoFilter 2, 10, 3
End With
End Sub

Sub Schaltfläche2_Klicken()
'Filter zurücksetzen
With Cells(1, 1).CurrentRegion
.AutoFilter
End With
End Sub


Angehängte Dateien
.xlsm   Top-10.xlsm (Größe: 19,48 KB / Downloads: 2)
Antworten Top
#7
Hallo,

die Tabelle entspricht in keinster Weise dem Original!
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#8
(11.05.2016, 14:37)Fennek schrieb: Hallo,

per Autofilter können die x-größten, bzw x-kleinsten Werte einer Tabelle gefiltert werden.

Für Top-10:


Code:
Sub Schaltfläche1_Klicken()
'Filter setzen
With ThisWorkbook.Sheets("Tabelle1").Cells(1).CurrentRegion
.AutoFilter 2, 10, 3
End With
End Sub

Sub Schaltfläche2_Klicken()
'Filter zurücksetzen
With Cells(1, 1).CurrentRegion
.AutoFilter
End With
End Sub

Hallo, ich kann mich täuschen, aber ich habe die Aufgabe anders interpretiert... ... ich habe das eher wie Detlef gesehen... ... das das hier die Datenquelle ist..:

Arbeitsblatt mit dem Namen 'Tabelle1'
 ABCDEFGHIJKLMNOPQRSTUVWXYZAAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBEBFBGBHBIBJBKBLBMBNBOBPBQBRBS
1Wert31263334283432293434263632263331283032283432273334263233273131283233273232293332283232283128323028293228312833263231273130253426302731302731
2Beschreibung0001000200030004000500060007000800090010001100120013001400150016001700180019002000210022002300240025002600270028002900300031003200330034003500360037003800390040004100420043004400450046004700480049005000510052005300540055005600570058005900600061006200630064006500660067006800690070
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste