Dim i%, flgSwap As Boolean, sTmp$, iTmp%, Rang%, PosLst%()
 
  ReDim PosLst(UBound(ArrWert))
  For i = 0 To UBound(PosLst): PosLst(i) = i: Next i
  Do
    flgSwap = False
    For i = 0 To UBound(PosLst) - 1
      If Val(ArrWert(i)) < Val(ArrWert(i + 1)) Then
        sTmp = ArrWert(i): ArrWert(i) = ArrWert(i + 1): ArrWert(i + 1) = sTmp
        iTmp = PosLst(i): PosLst(i) = PosLst(i + 1): PosLst(i + 1) = iTmp
        flgSwap = True
      End If
    Next i
  Loop While flgSwap = True
  Rang = 1
  For i = 0 To UBound(PosLst)
    If i > 0 Then
      If ArrWert(i - 1) > ArrWert(i) Then Rang = Rang + 1
    End If
    MSFlexGrid1.TextMatrix(14, PosLst(i) + MSFlexGrid1.FixedCols) = _
      IIf(Val(ArrWert(i)) = 0, 0, Rang)
  Next i

Gruss,

Zardoz