AW: LÖSUNG !!! ? !!! :-)
29.09.2019 20:05:08
Erwin
Hi Thorsten,
der Code muss auf Rechnern mit unterschiedlichen Windows + Office-Versionen laufen:
Windows7+Excel2011: funktioniert
Windows10+Excel:2016: funktioniert
Windows10+Excel2013: funktioniert nicht
hier der Code:
strText Liste die Sortiert werden soll, z.B.: "A12, A123, B12, A34, B12, A2, B1"
SortOrder, 0=unsortiert, 1=abwärts, 2=aufwärts
Function Sorttext(strText As String, Optional SortOrder As Byte = 2) As String
On Error GoTo Laufzeitfehler
Dim objArrayList As Object
Dim vntArr As Variant
Dim L As Long
If SortOrder > 1 Then
Set objArrayList = CreateObject("System.Collections.Arraylist")
vntArr = Split(strText, ", ")
With objArrayList
For L = LBound(vntArr) To UBound(vntArr)
.Add (vntArr(L))
Next
.Sort
If SortOrder = 2 Then
Sorttext = Join(.ToArray, ", ")
Else
.Reverse
Sorttext = Join(.ToArray, ", ")
End If
End With
Else
Sorttext = strText
End If
On Error GoTo 0
Exit Function
Laufzeitfehler:
'Fehlerbehandlung
'Call Fehlermeldung("Sorttext(strText As String, Optional sortOrderUp As Boolean = True) As _
String")
End Function
Gruß
Flo