Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeichenfolge umkehren

Gruppe

Zeichenfolge

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