Funktion/Formel, die ein Komma getrennte Liste alphabetisch sortiert/aufsteigend

Question

Beispiel eine Zelle Ich habe den Wert:

1133,1131,1141,1142,1143,1151,1132,1181 

Wie bekomme ich diese in aufsteigender Reihenfolge gehen?

1131,1132,1133,1141,1142,1143,1151,1181 

dies tut mit einer Menge verschiedenen Dinge zu arbeiten, so eine Formel oder vba Funktion angetrieben Lösung zu finden hoffen.

Answer 1

Option Explicit 

Function sortingHat(str As String, _ 
        Optional delim As String = ",") 
    Dim a As Long, b As Long, arr As Variant, tmp As Variant 

    'split the string into an array 
    arr = Split(str, delim) 

    'sort the array 
    For a = LBound(arr) To UBound(arr) - 1 
     For b = a + 1 To UBound(arr) 
      If arr(b) < arr(a) Then 
       tmp = arr(a) 
       arr(a) = arr(b) 
       arr(b) = tmp 
      End If 
     Next b 
    Next a 

    'join the array into a string 
    sortingHat = Join(arr, delim) 
End Function 

Answer 2

Bedenken Sie:

Function MySort(txt As String, Sep As String) As String 

    Dim a 

    With CreateObject("System.Collections.ArrayList") 
     For Each a In Split(txt, Sep) 
      .Add Trim$(CStr(a)) 
     Next 
     .Sort 
     MySort = Join(.ToArray, Sep) 
    End With 
End Function 

HINWEIS:

Wie im Titel angefordert, führt die Funktion eine alphabetisch eher sortieren als numerisch sortieren.