Verplaatsen van niveau

[wmr]

Hallo allemaal,

Ik ben op zoek naar een leuke techniek. Die wordt gebruikt in het sorteervenster van Excel.
Daar kun je niveaus toevoegen. Hoe dat moet, hoef ik niet te weten.

Ik wil weten hoe ik moet programmeren dat ik een niveau kan verplaatsen.

In de bijlage vind je een plaatje van de knop waarom het gaat. Het gaat me dus niet om het sorteren, maar hoe ik die knoppen "niveau verplaatsen" kan programmeren.

Ik hoop dat het duidelijk is.

Groet
Willem

 

[MarcelBeug]

De volgorde wordt bepaald door Sortfield.Priority.
De volgende code verwisselt de eerste 2 niveau's.

Sub VerplaatsSortNiveau()

    Dim mysortfield As SortField
    
    For Each mysortfield In ActiveWorkbook.Worksheets("Blad1").Sort.SortFields
    
        If mysortfield.Priority = 2 Then mysortfield.Priority = 1
    
    Next

End Sub

De oorspronkelijke Priority 1 wordt automatisch Priority 2.

 

[wmr]

Bedankt Marcel,

De techniek is dus specifiek gekoppeld aan sorteren. Het is dus geen algemene techniek.
Dit is dus niet te gebruiken bij het omwisselen van teksten uit een combobox.

groet
Willem