Rangschikking klopt niet!!

[lukassen]

Beste mensen,
Ik heb een probleem met de rangschikking.
Als ik onderstaande formule gebruik dan blijft die eerste staat op nr.1 staan terwijl hij minder punten heeft dan de nr.2
Volgens mij is het maar een klein probleem maar ik zie het niet.


Private Sub Workbook_sheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Sheets("Ranglijst").Range("A2600").Sort Key1:=Sheets("Ranglijst").Range("p2"), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Application.ScreenUpdating = True
End Sub



B.v.d.

 

[LucB]

Ik heb je code aangepast en in een Module gezet met een Knop op het Blad, dan heb je het beter in de hand.

 

[lukassen]

Beste Luc,
Bedankt voor de snelle reactie.
De module werkt prima.
Maar mijn vraag is daarmee niet beantwoord.
Waarom komt de juiste rangschikking niet tot stand zonder die knop.
Ik hoop dat iemand daar antwoord op heeft.
Groetjes Loek

 

[Wigi]

Ik hoop dat iemand daar antwoord op heeft.

Uiteraard Loek...

Je moet de Header instellen op

Header:=xlNo

Wigi

 

[LucB]

Loek,

In je oorspronkelijke code werd de 1e rij van de spelers niet in de sortering betrokken.

Leg de codes maar eens naast elkaar.

 

[lukassen]

Ok het probleem is opgelost.
Hartelijk bedankt en
Groetjes Loek