Hallo Community,

ich möchte ein String-Array alphatische sortieren. Dafür habe ich folgenden Code geschrieben:

    Dim dummyMA
    ReDim dummyMA(0 To countMA - 1)
                
    Dim blub As Integer
    blub = 0
                
    For t = 5 To 55
        If Worksheets("Mitarbeiter").Cells(t, 2).Value <> "" Then
            dummyMA(blub) = Worksheets("Mitarbeiter").Cells(t, 2).Value
            blub = blub + 1
        Else
        End If
    Next t
    

    Dim objArrLst As Object
    Set objArrLst = CreateObject("System.collections.arraylist")
   
    With objArrLst
        For r = 0 To countMA - 1
            .Add dummyMA(r)
        Next
        
        .Sort
    End With

Allerdings funktioniert die .Sort funktioniert nicht - kann mir jmd helfen?