Sorteren werkt niet helemaal

[cverkooyen]

Goede morgen,

in een excel sheet moet ik een kolom getallen sorteren van hoog naar laag, daarvoor gebruik ik de volgende code:

Blad2.Range("G" & TempRowNr, "H" & TempRowNrMax).Sort Key1:=Range("G" & TempRowNr), Order1:=xlDescending, Orientation:=xlTopToBottom

Nu werkt dat niet helemaal goed, de getallen tot 10 sorteerd hij perfect alleen bijvoorbeeld het getal 12 dat plaatst hij boven de 1 ipv boven de 9. Hoe kan dat?

Alvast bedankt!

Edit: Inmiddels werkt het wel, ik heb de celeigenschappen aangepast en nogmaals op standaard gezet en dat was de oplossing.

 

[danny147]

Beste

Probeer volgende code eens

Sub Macro1()
'

    Range("A4:A18").Select
    Selection.Sort Key1:=Range("A4"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Handmatig is toch gemakkelijker gewoon de reeks selecteren en op icoontje met Z (bovenaan) A (onderaan) klikken

Groetjes Danny

 

[Wigi]

Selecteren is niet nodig:

Sub Macro1()
    Range("A4:A18").Sort Key1:=Range("A4"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub