Wär nett wenn mir jemand weiterhelfen könnte!
Peter
Sub Makro1()
Text = InputBox("hier bitte den Text eingeben")
For i = Len(Text) To 1 Step -1
wert = Mid(Text, i, 1)
wert1 = wert1 & wert
Next
Range("a1").Value = wert1
End Sub
Sub Makro1()
Text = InputBox("hier bitte den Text eingeben")
Range("a1").Value = strreverse(Text)
End Sub
DisplayRightToLeft-Eigenschaft
True, wenn das angegebene Fenster oder Tabellenblatt von rechts nach links anstatt von
links nach rechts angezeigt wird. False, wenn das Objekt von links nach rechts angezeigt
wird. Boolean Schreib-Lese-Zugriff.
Anmerkungen
Diese Eigenschaft kann nur festgelegt werden, wenn die Unterstützung für Sprachen
mit Schreibweise von rechts nach links installiert und aktiviert wurde.