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.
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