ExcelAmateur
Terugkerende gebruiker
- Lid geworden
- 25 aug 2010
- Berichten
- 3.333
Beste helpers,
Ik gebruik onderstaande sorteercode deze werkt goed maar ik vraag mij af of dit korter kan.
De code heb ik opgenomen en weet dat er meer geschreven wordt dan nodig is maar wat kan eruit.
Alvast hartelijk bedankt voor het lezen.
Ik gebruik onderstaande sorteercode deze werkt goed maar ik vraag mij af of dit korter kan.
De code heb ik opgenomen en weet dat er meer geschreven wordt dan nodig is maar wat kan eruit.
Code:
Sub Sorteren()
Lgc = Blad1.Range("AK5").End(xlDown).Row 'Laatste regel nummer
Application.ScreenUpdating = False
Range("AK5:AR" & Lgc).Select
ActiveWorkbook.Worksheets("Kalender").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Kalender").Sort.SortFields.Add Key:=Range( _
"AR5:AR" & Lgc), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal 'Sorteer op maand
ActiveWorkbook.Worksheets("Kalender").Sort.SortFields.Add Key:=Range( _
"AQ5:AQ" & Lgc), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal 'Sorteer op dag
With ActiveWorkbook.Worksheets("Kalender").Sort
.SetRange Range("AK5:AR" & Lgc)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Alvast hartelijk bedankt voor het lezen.