Hallo zusammen,
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