ich habe in einer Spalte Werte stehen, für die ich in einer zweiten Spalte eine Rangfolge erstellt habe (RngPosition).
In einer dritten Spalte möchte ich die Position von Rang 1 bis Anz ermitteln.
Dazu habe ich folgenden Code:
Dim RngPosition As Range
For n1 = 1 To Anz
PositionRang = WorksheetFunction.Match(n1, RngPosition, 0)
Debug.Print PositionRang
Cells(1, 1).Offset(n1, 3) = PositionRang
Next n1
Bei "Debug.Print PositionRang" erhalte ich die richtige Reihenfolge,
bei "Cells(1, 1).Offset(n1, 3) = PositionRang" kommt eine andere Reihenfolge.
Was stimmt nicht?
Gruß Siegfried