Guten Tag liebe Excelaner,
ich habe ein Problem mit der find-methode und komme nicht drauf.

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(What:=Groeßten(Z), LookIn:=xlValue, lookat:=xlWhole, SearchOrder:=xlByColumn).Column
Cells(1, ColumnCount + Z) = Cells(1, Spalte(Z))
Cells(2, ColumnCount + Z) = Groeßten(Z)
Next

In der zweiten Zeile der For-Next Anweisung steigt der Code mit der Fehlermeldung
"Index auserhalb..." aus
Weiß jemand einen Rat?
Vielen Dank schon mal
Frank