vba excel sorteren

[frigooke]

Mijn bedoeling is om in een gewone excel lijst elke kolom apart te sorteren zonder dat de andere kolommen mee veranderen (manueel kan je dat aanvinken), echter in vba vind ik het correcte argument niet. Zelf door het op te nemen vind ik geen verschil in de argumenten bij vba

Hieronder zie je mijn code...iemand een oplossing?

Sub SorteerAlleKolommenApart()

Dim Laatste As Long 'zoekt op de laatste kolom van de bovenste rij

Dim Str As String

Dim Rng As Range

Range("A1").Select

Laatste = Selection.End(xlToRight).Column

For i = 1 To Laatste

Str = Range("A1").Offset(0, i - 1).Address

Debug.Print Str

'Columns("A:AZ").Sort key1:=Range(i & "1"), header:=xlYes, Order1:=xlAscending, ordercustom:=1

Range("A:AZ").Sort Key1:=Range(Str), Header:=xlYes, Order1:=xlAscending, OrderCustom:=1, Orientation:=xlTopToBottom, MatchCase:=False

Next i

Debug.Print "Laatste kolom: "; Laatste

Range("A1").Select

End Sub

[kweezie wabbit]

Welke office versie gebruik je?

[frigooke]

2003,

maar is ondertussen opgelost, heb via Str het address gereduceerd zodat ik deze nieuwe variabele ipv "A:AZ" (B:B dus in de plaats) kan gebruiken

[kweezie wabbit]

Als het is opgelost, kunnen we deze vraag afsluiten.