Friend Sub calcRanking()
   Dim kfz() As String = {"kfz1", "kfz2", "kfz3", "kfz4"}
   For i As Integer = 0 To kfz.Length - 1
      vRank(kfz(i).ToString)
   Next
   hRank(kfz)
End Sub
 
''' <summary>Rang-Berechnung in vertikaler Richtung (Spalte) für jeden 
' einzelnen Wert</summary>
''' <param name="spalte">Spaltenname als String</param>
Private Sub vRank(ByVal spalte As String)
   Dim dt As DataTable = Me
   Dim q = (From r In dt.AsEnumerable() Order By r.Field(Of Double)(spalte) _
     Descending _
            Select r.Field(Of Double)(spalte) _
           ).ToList()
           For Each dr As DataRow In dt.Rows
              dr(spalte & "_vRang") = q.IndexOf(dr.Field(Of Double)(spalte)) + 1
           Next
End Sub
 
 
''' <summary>Rang-Berechnung in horizontaler Richtung (Zeile) für jeden 
' einzelnen Wert</summary>
''' <param name="spalten">Array: Spaltenbezeichner für Rangberechnung</param>
Private Sub hRank(ByVal spalten() As String)
   Dim dt As DataTable = Me
   Dim val As Decimal, rnk As Integer
   For row As Integer = 0 To dt.Rows.Count - 1
      For c1 As Integer = 0 To spalten.Length - 1
         val = dt.Rows(row)(spalten(c1))
         'rnk = 1 '<- normale Reihenfolge 
         rnk = dt.Rows.Count - 1 '<- umgedrehte Reihenfolge 
         For c2 As Integer = 0 To spalten.Length - 1
            If val > dt.Rows(row)(spalten(c2)) Then rnk -= 1
         Next c2
         dt(row)(spalten(c1) & "_hRang") = rnk
      Next c1
   Next row
End Sub