Sorteervraagje

[NajKwin]

Hallo,

Ik gebruik onderstaande code om te sorteren en dat gaat goed

Sub Sorteren()
   Application.EnableEvents = False
   Blad1.Range("B3:D45").Sort Blad1.Cells(3, 4)
   Application.EnableEvents = True
End Sub

Ik zou graag de code willen uitbreiden dat hij eerst op kolom 4 sorteert en daarna op kolom 3.



Wie kan me vertellen hoe dat moet?

GR Naj

 

[VenA]

Blad1.Range("B3:D45").Sort Blad1.Cells(3, 4),,Blad1.Cells(3, 3)

Syntax
expression.Sort (Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)

expression A variable that represents a Range object.

 

[NajKwin]

Dank Je
VenA