Zelladresse ermitteln
Frank
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
Anzeige