Sorteren op 2 cellen en de rest mee verplaatsen

[johngub]

Ik heb een code om op 1 cel te sorteren maar het is de bedoeling dat hij op 2 cellen gaat sorteren en de rest van de gegevens mee verplaatst.
Ik hoop dat iemand mij verder kan helpen.

 

[SjonR]

zo?

Sub Sorterendatabase_Plaats()
Range("A1:I" & Range("A" & Rows.Count).End(xlUp).Row).Sort Key1:=Range("C1"), [COLOR="#FF0000"]Key2:=Range("D1")[/COLOR], Order1:=xlAscending, Header:=xlYes
End Sub

 

[johngub]

Werkt prima Bedankt:thumb:

 

[snb]

Hetzelfde effekt met:

Sub Sorterendatabase_Plaats()
    cells(1).currentregion.resize(,9) cells(1,3), , cells(1,4), Header:=1
End Sub