Text spiegelverkehrt wiedergeben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Text spiegelverkehrt wiedergeben
von: Peter T
Geschrieben am: 19.11.2003 22:45:45

Habe trotz einiger Antworten noch keine Lösung, brauche dringend Hilfe.
Danke

Hier die Fragestellung:
https://www.herber.de/forum/messages/340788.html

Bild


Betrifft: AW: Text spiegelverkehrt wiedergeben
von: Sigi
Geschrieben am: 19.11.2003 22:52:57

Hallo Peter,

mit einer benutzerdefinierten VBA-Funktion ...


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

Gruß
Sigi


Bild


Betrifft: AW: Text spiegelverkehrt wiedergeben
von: Sigi
Geschrieben am: 19.11.2003 22:55:50


noch etwas kürzer ...

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

Gruß
Sigi


Bild


Betrifft: AW: Text spiegelverkehrt wiedergeben
von: Peter T
Geschrieben am: 19.11.2003 23:01:18

Ja genau das ist es,
REPUS

DANKE

Peter


Bild


Betrifft: versuch
von: Josef Ehrensberger
Geschrieben am: 19.11.2003 23:00:56

Hallo Peter,

versuch mal dieses Makro.


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


Gruß Sepp


Bild


Betrifft: AW: versuch
von: Peter T
Geschrieben am: 19.11.2003 23:02:19

Danke Sepp
aber habe bereits die Lösung von Sigi eingebaut und funktioniert auch.

Peter


Bild


Betrifft: AW: versuch
von: Nepumuk
Geschrieben am: 19.11.2003 23:06:54

Hallo Sepp,
kennst du das:

Public

Sub test()
    Dim text As String
    text = "aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz"
    text = StrReverse(text)
End Sub


Gruß
Nepumuk


Bild


Betrifft: AW: versuch
von: Jochen
Geschrieben am: 19.11.2003 23:29:42

Hi,

Peter hat Excel 97, da gabs das noch nicht.

Grüße Jochen


Bild


Betrifft: AW: versuch
von: Nepumuk
Geschrieben am: 19.11.2003 23:47:18

Hallo Jochen,
ich habe ja auch gezielt Sepp angesprochen.
Gruß
Nepumuk


Bild


Betrifft: AW: versuch
von: Josef Ehrensberger
Geschrieben am: 19.11.2003 23:33:45

Hi Nepumuk,

eigentlich schon, aber heute funktioniert mein
Gehirn wie ein Windows mit zerschossener Registry.

Nachdem ich mein Makro gepostet habe, hab ich's
nochmal durchgelesen und mich dabei uber mich selbst
gewundert.

Naja ich glaub' es ist besser wenn ich mich ins
Bett lege, vieleicht geht's morgen wieder besser.

Gute Nacht - Sepp


Bild


Betrifft: AW: Text spiegelverkehrt wiedergeben Xls97
von: FP
Geschrieben am: 19.11.2003 23:24:30

Hallo Peter,

Aufruf:
in einer Zelle: z.B. in B1 = RevString(A1) - dreht den Text in A1 um
aus VBA heraus: z.B. MsgBox RevString("!TREINOITKNUF")


Function RevString(txt) As String
  Dim i As Integer
  For i = 1 To Len(txt)
    RevString = Mid(txt, i, 1) & RevString
  Next
End Function


Servus aus dem Salzkammergut
Franz


Bild

Beiträge aus den Excel-Beispielen zum Thema " Modul einbinden"