Code Automatisch sorteren

[PrioS]

Beste mensen,

Voor mijn werk moet ik een ek poule maken (zie afbeelding hieronder).
Voor mijn gevoel ben ik al aardig op weg.
Nu zit ik alleen een beetje vast bij het automatisch sorteren (die na elke verandering in punten moet plaats vinden)
Ik heb wel al codes gevonden waarbij ik hele kolomen van 1000 lang kan sorteren maar dit werkt niet.
Het probleem zit bij mij vaak dat de titelkolom ook meegaat.
Zou iemand mij een stapje in de juiste richting kunnen zetten?



Alvast super bedankt!

 

[Peter B]

Een voorbeeldbestand wordt altijd op prijs gesteld. Ik denk dat je dan al een sneller antwoord had gehad. Ik heb het volgende opgenomen met de macro recorder (sorteren descending met kolomheader). Dit zou je verder moeten helpen ...

    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A5"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:B5")
[b][color=red]        .Header = xlYes[/color][/b]
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[VenA]

Om elke poule te sorteren (Alleen even voor poule A en poule B gedaan)

Sub VenA()
For Each ar In Range("C2:K6,C10:K14").Areas
    ar.Sort ar.Cells(1, 9), 2, ar.Cells(1, 8), , 2, , , 1
Next ar
End Sub