Sortering gaat niet goed.

[RB_online]

Hallo forumleden,

Ik heb een vreemd probleem.
Vanaf sheet 1 copiëer ik een bereik naar sheet 2.
Op deze sheet plak ik het bereik als vaste waarden met paste.special.
OP sheet 2 wil ik een sortering aanbrengen met de volgende code

 Range("SorteringsGebied").Sort Key1:=Range("R7"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Als ik dan kijk naar het resultaat dan is er niet juist gesorteerd hij heeft dan de volgende volgorde 1,2,4,3,5,6,7,8,9,11,10,13,12,14,15,16,17,18.
Indien ik dit bereik nog eens sorteer dan gaat het wel goed.
Rara hoe kan dat.
Het bestand is te groot om te posten.
Ik zal nog proberen om een kleiner bestand met dezelfde manier van werken te realiseren.

René

 

[Jack Nouws]

Hallo,

Heb je het probleem nog als je je code inkort zoals hier onder?

Sub Sorteren()
 [SorteringsGebied].Sort [R7], xlDescending
End Sub

Met vr gr,
Jack

 

[RB_online]

Hallo Jack,

Helaas geeft dit hetzelfde resultaat.

 

[RB_online]

Ik heb een vergelijkbaar bestand gemaakt en wat denk je alles gaat goed.
In het bestand waar het moet werken gaat het niet goed.
Serieuze helpers wil ik wel even een copy via de mail sturen.
Het bestand is dusdanig groot dat het hier niet gepost kan worden.

René

 

[sylvester-ponte]

hoi RB_online

houd je er wel rekening mee dat Sort [R7] t.o.v. het werkblad is in niet t.o.v het sorteergebied?

groet sylvester

 

[RB_online]

Ik heb het nu opgelost met een drievoudige sortering.
Niet helemaal de gewenste oplossing maar het werkt.
Een ieder bedankt voor de genomen moeite.

René