Sortering af nummerliste

Den sorterer korrekt når det er et tekstfelt.

som mugs siger, er der sorteringen korrekt. Dit problem er, at teksterne har forskellig længde. For at løse dette problem, skal du have gjort dem lige lange; eventuelt med foranstillede nuller.

Nej det gør min excl ikke. Jeg har Excel 2002 SP-2.

Det er som nævnt varenumre og de er desværre ikke ligelange. Det kan man ikke lave om på. Hvis jeg lægger listen over i Word sorterer den korrekt
015485L
030330L
030424L
030459
030805L
030807L
030811
030813
111981
111983
173050G
175772P
176626P
177091P
179070P
179071P
848813
848882
8886828206
8886828306
8886848813

Du har ret - Excel sorterer umiddelbart underligt.

Jeg prøver at finde noget dokumentation.

En mulig workaround er følgende:

Skriv en funktion, der tager en værdi, len som input og returnerer samme værdi foranstillet med ex. a0..0 til en forudbestemt længde.

ex.
Public Function pad(value, newlen) As String
    If Len(value) >= newlen Then
        Err.Raise vbObjectError + 1, "pad(value, newlen)", "Værdien (" & value & ") er længere eller lig med den angivne newlen", vbExclamation, "Fejl"
    End If
 
    Dim st As String
    st = "a"
    For i = Len(value) + 1 To newlen
        st = st & "0"
    Next i
   
    pad = st & value
End Function

Kolonne B sætter du ex =pad(A1, 11) osv...

A            B
015485L  a00000030459
030330L  a0000030330L
030424L  a0000030424L
030459  a00000030459
030805L  a0000030805L
030807L  a0000030807L

Herefter sorterer du på kolonne B og du får den korrekte sortering

Excel adskiller en sortering i tal og tekst. Dette kan du ikke ændre på ved celleformat eller ved at angive et ' foran værdien (ex. '00234)

... eller gør du? :-)

Jeg kan ikke lige forstå logikken i Words sortering som du viser. Forklar venligst hvorfor ex.

015485L kommer før 030811

sorry - word sorterer naturligvis som tekstværdier...

Tjah, min excel2002 kan fint sortere dem på samme måde som word..
Jeg bliver under sortering spurgt om hvordan jeg vil sortere numre og tekst, og her vælger jeg den nederste løsning (sort numbers and numbers stored as text seperatly)

bak> Jeg nåede også frem til det samme.

Det kan skrives som en makro:

Sub Sorter()
    Range("A1:B22").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

jpvi: det er ikke logisk at gøre sådan.
bak:
når jeg vælger den nederste løsning (sort numbers and numbers stored as text seperatly) sorteres excel som 2 separate nummerserier, først en med numre alene og derefter kommer så numre med bogstav i enden

Så er ikke alle celler formateret som tekst eller ikke alle værdi lagt ind som tekst....nogle er stadig værdier
Det er jo netop det sort numbers and numbers stored as text seperatly betyder

jpvj: det virker desværre ikke på min pc. Jeg prøver at sende fil hjem på min private pc, der har jeg en anden udgave af excl - så ser jeg på det igen i morgen

du kunne evt. lige prøve at køre makroen fra http://www.eksperten.dk/spm/562112 på dine data

bak: det virker med den makro - meld det ind som et svar, du har fortjent pointene
//AMH

fint :-)