Mehrfachen KleinsterWert Finden

[michel34497]

Hallo!
Benötige nochmals eure Hilfe!
Ich möchte gerne eine ListBox mit Namen befüllen, die Namen Stehen in der Spalte D ab Zeile 5.
In der Spalte L ab Zeile 5 bis 42 die zum Namen gehörenden Zahlen. Das kriterium zum befüllen der ListBox ist:
Zu erst sollen alle Namen mit der Kleinsten Zahl in die Listbox eingetragen werden, dann der nächst höhere wert usw.
bis Alle Namen aus der Tabelle in der ListBox stehen.

Zum ermitteln der Kleinsten Zahl und Position habe ich das:

Code:

Sub Adresse()
Dim Adresse As String, WSF As WorksheetFunction, Bereich As Range, Z1 As Long

Set WSF = WorksheetFunction
Set Bereich = ActiveSheet.Range(ActiveSheet.Cells(5, 12), ActiveSheet.Cells(39, 12))

Adresse = ""
Adresse = "Minimum = " & WSF.Min(Bereich) & Chr(13) & _
"Zeile: " & Bereich.Find(What:=WSF.Min(Bereich), LookAt:=xlWhole).Row & Chr(13) & _
"Spalte: " & Bereich.Find(What:=WSF.Min(Bereich), LookAt:=xlWhole).Column

MsgBox Adresse, vbInformation, "Adresse"

End Sub

Jetzt benötige ich einen Code der mir die nächste Kleinste Zahl in der Spalte findet.
der Code sollte so lange laufen bis alle Kleinsten werte gefunden sind.

Hoffe die Infos reichen, wenn nicht Schreiben

[Klaus-Dieter]

Hallo Michel,

beginnend mit den Nullwerten?

[michel34497]

Hallo Klaus-Dieter!
Erstmal Ja!
Nachher kann es sein das es keine Nullwerte mehr gibt.
Die Zahlen erhöhen sich im laufe. Dann ist später die 5 der Kleinste wert.

[RPP63]

Wenn Du die Summenformel etwas änderst, kannst Du die Namen der aufsteigenden Summen per Formel ermitteln.
Den Bereich der Namen in Spalte M schubst Du dann per Listbox1.List = Range("M5:M36") in besagte Listbox.

	D	E	F	G	H	I	J	K	L	M
3	Name:	Mo	Di	Mi	Do	Fr	Sa	So	Gesamt
4	Alle
5	Butterweck	1							1	Figge
6	Cuntze		1						1	Gerhard
7	Döge		2						2	Göckel
8	Emde		3						3	Götte, Mario
9	Figge								0	Götte, Math.

Zelle	Format	Wert
L5	0	1,00000000000005

Zelle	Formel
L5	=SUMME(E5:K5)+ZEILE()%%%%%%%
M5	=INDEX(D$5:D$39;VERGLEICH(KKLEINSTE(L$5:L$39;ZEILE(A1));L$5:L$39;0))

Gruß Ralf