Private Sub rank(ByVal dr As DataRow, ByVal f As Integer, ByVal c As _
      Integer, ByVal f1 As Integer)
        Dim li As New List(Of Integer)
        For i1 = f To f + c - 1
            li.Add(dr(i1))
        Next
        li.Sort()
        li.Reverse()
        For i = f To f + c - 1
            dr(f1) = li.IndexOf(dr(i)) + 1
            f1 += 1
        Next
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist