Jeg sidder og bokser med et problem, mht. sortering af filnavne i en userform listbox.

Jeg har vedhæftet et ark med 1 colonne hvordan filerne bliver listet i boksen, og 1 colonne med hvordan jeg gerne vil have dem repræsenteret i min listbox.

Håber på at der er en i forum'et som har en fiks lille macro stump, som jeg kan bruge.

 

Jeg har prøvet følgende kode:

    ''Sorts ListBox List
     Dim x1 As Long
     Dim y As Long
     Dim temp As Variant
        
     With ListBox1
         For y = 0 To ListBox1.ListCount - 2
             For x1 = 0 To ListBox1.ListCount - 2
                 If .List(x1) > .List(x1 + 1) Then
                     temp = .List(x1)
                     .List(x1) = .List(x1 + 1)
                     .List(x1 + 1) = temp
                  
                 End If
             Next x1
         Next y
     End With

 

Den virker også, men den giver mig ikke det ønskede resultat.

 

/uploads/856/Sortering_liste.xlsx" rel="nofollow">uploads/856/Sortering_liste.xlsx

 

Det ville jeg også gerne, men det giver ikke det ønskede resultat.

Den skal sortere efter det nummer som står efter den første tekst.

Dvs. at den skal se bort fra teksten før nummeret.

 

Forstår godt dit svar, men jeg bruger det til at sortere fill navne i en Userform. 

Listen skulle gerne se sådan ud, når den er sorteret.

Det er de røde tal, der skal sorteres efter.

Ved ens tal, er rækkefølgen underordnet.

 

 

Jeg tror, at jeg har fundet løsningen på mit problem.

Du bragte mig på sporet, og jeg kom i tanke om en program stump, som jeg også har fået herinde i forumet.

Den er ikke afhængig af antallet af ciffer i tallet.

 

Sub FindFørsteNummer()
Dim strfilename As String
Dim xx As String
Dim sTmp As Variant
Dim i As Integer
    
     strfilename = "Afspærring nr PJJ75582 XXCCXX.xlsm"
     sTmp = Split(strfilename, " ")
     For i = 1 To Len(sTmp(2))
          If IsNumeric(Mid(sTmp(2), i, 1)) Then xx = xx & Mid(sTmp(2), i, 1)
     Next i
End Sub

 

Så smider jeg hele listen over i et "sheet" og masker tallet ud i en col. for sig selv og laver sorteringen der.

 

Hvis jeg får det til at virke, smider jeg det ind her igen.

Du må gerne komme med flere input, da det er gode hints, du er kommet med.

 

Mvh.

Peter Juul