Sorteren Het grootste getal eerst

[DANIEL162]

Hoe kan ik sorteren:
Het grootste getal eerst i.p.v het laagste getal eerst.
In mijn voorbeeld geeft hij het laagste getal eerst.

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
Range("A9:E13").Sort Key1:=Range("B9")
ActiveWorkbook.Save
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With

Dus voor alle duidelijkheid:
Niet zo Maar zo
1 - 100
4 - 50
50 - 4
100 - 1

groetjs Daniel

 

[Thoralf]

Range("A9:E13").Sort Key1:=Range("B9"), Order:=xlDescending

zou het moeten doen