ich stehe mal wieder vor einen Problem und komme nicht weiter.
Vielleicht könnt Ihr mir ja helfen.
Ich ermittle mit folgendem Code die Werte non Max nach Min.
Cellcount = Range("B65536").End(xlUp).Row
ReDim arr(5)
For I = 1 To 5
arr(I) = Application.WorksheetFunction.Large(Range(Cells(Cellcount, 2), Cells(Cellcount, 6)) _
_
, I)
Next I
Nun möchte ich aber auch zu diesen Werten die Zellposition der einzelnen Werte ermitteln
und in eine Variable Pos(I) schreiben.
Hat jemand eine Idee?
Vielen dank schon mal
Frank