ich habe die zwei nachfolgenden Code in der xlRecherche
gefunden.
Mein Problem: Leider funktionieren beide nicht, wenn in der
Liste mehrere gleiche Werte vorhanden sind.
Fehlermeldung: #NW#
Und ich möchte aufsteigend sortiert haben
d.h. dem kleinsten Wert auch den kleinsten Rang vergeben.
Sub test1()
Dim i%
For i = 1 To 10
Cells(i, 2).Formula = "=Rank(" & i & ", A:A)"
Next i
End Sub
Sub test2()
Dim i%
For i = 1 To 10
Cells(i, 2) = Application.Rank _
(i, Columns("a"))
Next i
End Sub
Kann mir jemand helfen?
Viele, viele Dank.
Grüße