Variabel bereik sorteren

[ronald1986]

Mensen,

Ik heb een vraab over het sorteren van een variabel bereik d.m.v. VBA. Ik heb met een beetje hulp van de macro recorder onderstaande code verkregen maar er staat nog steeds een bereik in...

    Range("A1:B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
       [COLOR="#FF0000"] .SetRange Range("A1:B10")[/COLOR]       
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Weet iemand hoe ik echt een variabel bereik kan sorteren d.m.v. VBA?

B.v.d.!

Edit: Deze code heb ik dus verkregen via de macro recorder. Als iemand een kortere code met hetzelfde resultaat weet is dat van harte welkom!

 

[HSV]

Eén regeltje moet dan genoeg zijn om kolom A en B te sorteren.

 Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row).Sort Range("a1"), , , , , , , xlYes

 

[ronald1986]

Perfcect, precies wat ik nodig had! Danku Harry!

 

[ronald1986]

Toch nog een vraagje...
Ik wou dit net ook gebruiken in een ander bestand waar het gaat om F8 tot AH8 en dan naar beneden tot de laatsete gevulde regel en dan sorteren op kolom F van laag naar hoog.

Ik heb het met ondertsaande code geprobeerd maar die doet helemaal niets...

Range("F8:AH" & Cells(Rows.Count, 6).End(xlUp).Row).Sort Range("F8"), , , , , , , xlYes

Weet iemand hoe dit komt?

Bvd!

 

[ronald1986]

Heb het al opgelost...