Frage zu Worksheetfunktion.Large

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…passieren, Frank,
wenn bspw der größte Wert ≥5× vorkommt? Wodurch ist dann der 5.Wert vor allen anderen gleichgroßen zur Auswahl prädestiniert? Das kannst ja eigentlich nur du wissen, falls du darüber überhaupt schon mal nachgedacht hast… ;-]
Ansonsten musst du den Bruchteil einer lfd Nr zum Wert addieren, um die Reihenfolge der Werte zusätzlich zu berücksichtigen. Den musst du natürlich vor der Suche wieder entfernen. Allerdings wirst du dann wohl stets die Stelle seines 1.Auftretens erhalten, was bei meinem Bsp möglicherweise mit dem Wert Large(Bereich, 1) nicht 5 identisch wäre. Anderenfalls musst du statt Find wf.Match benutzen, aber die fktioniert nur mit Vektoren, also einzelnen Spalten bzw Zeilen.
Gruß Luc :-?

Sub Groeßten() Dim Bereich As Range Dim Groeßten() Dim Spalte() Dim ColumnCount, Z As Integer ColumnCount = Cells(1, Columns.Count).End(xlToLeft).Column Set Bereich = Range(Cells(2, 1), 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), After:=Bereich.Cells(1, Z), LookIn:=xlValues, _ LookAt:=xlWhole, SearchDirection:=xlNext).Column Spalte(Z) = Cells(1, Spalte(Z)) MsgBox Groeßten(Z) & " " & Spalte(Z), , Z Next End Sub

Hallo Frank,
mit einem Hilfsarray und anderen Funktionen geht es .
Für das Hilfarray werden die Zahlen im Bereich mit einer fixen Zahl multipliziert und eine fortlaufende Nummer addiert. Die Funktion Large wird dann auf das Hilfsarray angewendet.
Gruß
Franz

   Dim arrWerte() As Double
Set Bereich = Range(Cells(2, 7), Cells(2, ColumnCount))
ReDim Groeßten(5)
ReDim Spalte(5)
ReDim arrWerte(1 To Bereich.Columns.Count)
For Z = 1 To Bereich.Columns.Count
arrWerte(Z) = Bereich.Cells(1, Z) * (10 ^ Len(Format(Bereich.Cells.Count * 10, "0"))) + Z
Next
For Z = 1 To 5
Groeßten(Z) = Application.WorksheetFunction.Large(arrWerte, Z)
Spalte(Z) = Cells(1, Application.Match(Groeßten(Z), arrWerte, 0) + Bereich.Column - 1)
Debug.Print Z & "   -   " & Spalte(Z) & "   -   " _
& Cells(2, Application.Match(Groeßten(Z), arrWerte, 0) + Bereich.Column - 1)
Next
Erase arrWerte

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread