Opgelost sorteren van artikelnummers

[snb]

Hou het simpul

Sub M_snb()
    sn = Cells(1).CurrentRegion
    
    For j = 1 To UBound(sn)
        st = Split(sn(j, 1))
        sn(j, 1) = st(0) & Format(Mid(sn(j, 1), Len(st(0)) + 1), " 000")
    Next
    
    Cells(1).CurrentRegion = sn
    Cells(1).CurrentRegion.Sort Cells(1)
End Sub

 

[68Yael]

Hier gaat het nu ook goed.
top en bedankt voor jullie hulp.
Mvg Yael.

 

[68Yael]

Zat nog een bericht tussen maar de oplossing van AHulpje om de 2 weg te laten werkt prima.

 

[JEC.]

In ene

=LET(t;A1:A73;SORTBY(t;TEXTBEFORE(t;" ");1;IFERROR(TEXTAFTER(t;" ")+0;t);1))

 

[edmoor]

Volgens mij was de LET functie er nog niet in Office 2016.

 

[JEC.]

Ah ik had die post niet gezien, idd het zal niet werken

 

[AHulpje]

En je volgnummer wordt niet stiekem voorzien van voorloopnullen.

 

[snb]

Dat lijkt me inderdaad een ramp

die niet zo 1-2-3 met columns(1).replace " 00"," "
opgelost kan worden.