Private Sub rank()
        Dim q = (From r In dt.AsEnumerable() Order By r.Field(Of Integer)( _
          "Area") Select r.Field(Of Integer)("Area") Distinct).ToList()
        For Each dr As DataRow In dt.Rows
            dr("Rank") = q.IndexOf(dr.Field(Of Integer)("Area")) + 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