VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeichenfolge umkehren

Gruppe

UDF

Bereich

Zeichenfolge

Thema

Zeichenfolge umkehren

Problem

Wie kann ich eine Zeichenfolge umkehen, beispielsweise aus "Weber" "rebeW" machen?

Lösung

Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Zeichenfolge