VB-sorteren in excel werkt niet goed

[anoniem]

Beste mensen, ik heb de volgende macro in excel om de standen van de diverse ploegen te sorteren. Nu is het zo dat wanneer ik deze macro uitvoer het vaak voorkomt dat hij de eerste rij van het te sorteren gebied niet meeneemt. Hoe is dit mogelijk? Hoe is dit op te lossen? Wie kan mij helpen? ==================== Sub stand6() ' ' Stand macro ' De macro is opgenomen op 6-3-01 door W.P. Bremer. ' ' Sneltoets: CTRL+r ' Dim blad(7) As String Dim i As Integer blad(0) = "D2" blad(1) = "D3" blad(2) = "E1" blad(3) = "E2" blad(4) = "F1" blad(5) = "F2" blad(6) = "F3" For i = 0 To 6 Sheets(blad(i)).Select Range("CT6:DC11").Select Selection.Sort Key1:=Range("DC6"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Range("DD10").Select Range("ct6:dc11").Select Selection.Sort Key1:=Range("cy6"), Order1:=xlDescending, Key2:=Range("db6") _ , Order2:=xlDescending, Key3:=Range("cu6"), Order3:=xlDescending, Header _ :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Range("dd10").Select Next i End Sub ================ Meestal krijg ik dit resultaat: www.vvscharnegoutum.net/data/f2stand_nj.htm hier is te zien dat de stand verkeerd is doordat hij niet goed de kolom met het doelpuntensaldo heeft gesorteerd (kolom DB). met vriendelijke groet wiebren

[anoniem]

Hoe ziet het excel-blad eruit ?

[anoniem]

Beste Jan Horstman, hierbij het besproken excel werkblad, ik hoop dat je me zo verder kan helpen. Misschien moet er wel op een ander manier worden gesorteerd. www.vvscharnegoutum.net/hulp/F2hulpcomputertotaal.xls.zip Graag hoor ik je reactie Met vriendelijke groet Wiebren