Dim q = (From r In dt.AsEnumerable() Order By r.Field(Of Integer)( _
          "Area") Select r.Field(Of Integer)("Area")).ToList()
        Dim d As New Dictionary(Of Integer, Decimal)
        Dim li As Integer = q(0)
        Dim rc As Integer
        Dim rs As Integer = 1
        q.Add(Integer.MaxValue)
        For i As Integer = 0 To q.Count - 1
            If li <> q(i) Then
                d.Add(li, rs + (rc - 1) / 2)
                li = q(i)
                rc = 1
                rs = i + 1
            Else
                rc += 1
            End If
        Next
        For Each dr As DataRow In dt.Rows
            dr("Rank") = d(dr.Field(Of Integer)("Area"))
        Next

________
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