Halbertsma
Gebruiker
- Lid geworden
- 25 jun 2009
- Berichten
- 34
Hallo,
In een excelbestand is kolom D (vanaf rij 4) gevuld met data (nederlandse weergave, dd-mm-yyyy).
Kolom B is gevuld met text.
Nu wil ik ( "A1:Laatste cel gebruikt") sorteren op datum en daarna kolom B sorteren op alfabet.
Hiervoor heb ik de volgdende code opgesteld
Dit gaat echter niet goed. Het volgende gebeurt namelijk:
4-4-2008
19-9-2009
6-9-2010
18-8-2009
18-8-2009
18-8-2009
18-8-2009
18-8-2009
2010 moet natuurlijk onderaan.
Waar zit de fout?
In een excelbestand is kolom D (vanaf rij 4) gevuld met data (nederlandse weergave, dd-mm-yyyy).
Kolom B is gevuld met text.
Nu wil ik ( "A1:Laatste cel gebruikt") sorteren op datum en daarna kolom B sorteren op alfabet.
Hiervoor heb ik de volgdende code opgesteld
Code:
Columns("D:D").NumberFormat = "m/d/yyyy"
Range("A4", ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Key2:=Range("B1"), _
Order2:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers, _
DataOption2:=xlSortNormal
Dit gaat echter niet goed. Het volgende gebeurt namelijk:
19-9-2009
6-9-2010
18-8-2009
18-8-2009
18-8-2009
18-8-2009
18-8-2009
2010 moet natuurlijk onderaan.
Waar zit de fout?