VBA-Beispiel 075
mail schreiben
mail schreiben

Platzierung ermitteln

Aufgrund der Umsätze in Spalte B soll die Platzierung ermittelt und in Spalte C eingetragen werden.
Zum Schluß nach Platzierung sortieren.

Exceltabelle
Sub Rang_ermitteln()
Dim i As Long, Zeile As Long

'letzte Zeile Spalte A mit Name
Zeile = [A65536].End(xlUp).Row

For i = 2 To Zeile
  Cells(i, 3) = Application.WorksheetFunction.Rank _
    (Cells(i, 2), Range(Cells(2, 2), Cells(Zeile, 2)))
Next i

'nach Rang sortieren
Range("A2", Cells(Zeile, 3)).Sort Key1:=Range("C2"), Order1:=xlAscending

End Sub


Download:   vba075.zip