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?
|