Damit die Formel genutzt werden kann, muss der unten genannte Code in ein "Allgemeines Modul". ( Siehe auch UDF - Funktionen
-> * Allgemeines Modul - Kurzanleitung * )
Public Function sortieren(zelle, Optional auf As Boolean = True) As String
'********************************
'Autor: ransi
'********************************
Dim objAL As Object
Dim I As Integer
Set objAL = CreateObject("System.Collections.Arraylist")
With objAL
For I = 1 To Len(zelle.Text)
.Add (Mid(zelle.Text, I, 1))
Next
.Sort
sortieren = Join(.toArray, "")
End With
If auf = False Then sortieren = StrReverse(sortieren)
Set objAL = Nothing
End Function
|
|||||||||||||||||||||||||||
