Jack Nouws
Terugkerende gebruiker
- Lid geworden
- 16 apr 2008
- Berichten
- 1.396
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Sub Sorteren()
With Blad1.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="ma,di,wo,do,vr,za,zo", DataOption:=xlSortNormal
.SetRange Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
.Apply
End With
End Sub
Blad1.Range("A1:A2500").Sort [A1], , , , , , , 1, Application.GetCustomListNum(Array("ma", "di", "wo", "do", "vr", "za", "zo")) + 1
Sub VenA()
With Application
.AddCustomList Split("za zo ma di wo do vr")
Blad1.Cells(1).CurrentRegion.Sort Blad1.[A1], , , , , , , 1, .CustomListCount + 1
.DeleteCustomList .CustomListCount
End With
End Sub
OrderCustom Optional Variant Specifies a one-based integer offset into the list of custom sort orders.
Sub VenA()
Blad1.Cells(1).CurrentRegion.Sort Blad1.[A1], , , , , , , 1, 2
End Sub
V&A
Er kan een verschil zijn tussen het aantal elementen in een verzameling en het indexnumber van een element in een verzameling. (afhankelijk van de Option Base).
Sub Dagen()
With Application
.AddCustomList Split("zo_ma_di_wo_do_vr_za", "_")
Range("A2:C26").Sort Range("C2"), Ordercustom:=.CustomListCount [COLOR=#ff0000]+ 1[/COLOR]
.DeleteCustomList .CustomListCount
End With
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.