Damit die Funktion genutzt werden kann, muss folgender Code in ein allgmeines Modul.
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
|
|||||||||||||||||||||||||||
