Function TextDrehen(Text As String) As String
Dim i As Long
Dim Zeich As String
For i = Len(Text) To 1 Step -1
Zeich = Mid(Text, i, 1)
TextDrehen = TextDrehen & Mid(Text, i, 1)
Next i
End Function
Function TextDrehen(Text As String) As String
Dim i As Long
For i = Len(Text) To 1 Step -1
TextDrehen = TextDrehen & Mid(Text, i, 1)
Next i
End Function
Sub trhekrevlegeips()
Dim myStr As String
Dim rtSym As String
Dim myArr() As Variant
Dim iCnt As Integer
myStr = "CLN001S"
ReDim myArr(1 To Len(myStr))
For iCnt = 1 To Len(myStr)
myArr(iCnt) = Mid(myStr, iCnt, 1)
Next
For iCnt = Len(myStr) To 1 Step -1
rtSym = rtSym & myArr(iCnt)
Next
MsgBox rtSym
End Sub
Sub test()
Dim text As String
text = "aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz"
text = StrReverse(text)
End Sub
Function RevString(txt) As String
Dim i As Integer
For i = 1 To Len(txt)
RevString = Mid(txt, i, 1) & RevString
Next
End Function
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen