Frage zu Worksheetfunktion.Large
02.04.2014 10:48:45
Frank
ich habe eine Frage zu Worksheetfunktion.Large.
Mit folgendem Code suche ich die 5 Größten Werte.
Und lasse mir dazu die Überschriften ausgeben.
Set Bereich = Range(Cells(2, 7), Cells(2, ColumnCount))
ReDim Groeßten(5)
ReDim Spalte(5)
For Z = 1 To 5
Groeßten(Z) = Application.WorksheetFunction.Large(Bereich, Z)
Spalte(Z) = Bereich.Find(Groeßten(Z), LookIn:=xlValues, LookAt:=xlWhole).Column
Spalte(Z) = Cells(1, Spalte(Z))
Next
Das klappt auch so weit gut.
Es gibt nur Probleme wenn zwei Werte gleich sind.
Dann wird nämlich der nächst niedrige Wert genommen.
Wie kann ich es anstellen wenn es zwei gleich große größte Werte gibt
diese Mir auch an Nummer1 und Nummer 2 zurückgegeben werden?
Ich hoffe ich habe mich einigermaßen verständlich ausgedrückt.
Vorab schon mal vielen Dank
Gruß
Frank