Gruppe
UDF
Problem
Wie kann ich eine Zeichenfolge umkehen, beispielsweise aus "Weber" "rebeW" machen?
StandardModule: basMain
Function TurnOver(sSource As String) As String
Dim iCounter As Integer
Dim sText As String
For iCounter = Len(sSource) To 1 Step -1
sText = sText & Mid(sSource, iCounter, 1)
Next
TurnOver = sText
End Function