Zelleninhalt rückwärts wiedergeben

[Wiskas]

Hallo Ihr Lieben,

weiß jemand, wie man einen Zelleninhalt rückwärts widergeben kann (also anstatt "Hallo" soll nachher "ollaH" drinstehen)?

Danke schonmal!
Grüße
Frank

[Stephan]

Würde ich mit einer benutzerdefinierten Funktion lösen, z.B.:

Code: Alles auswählen

Function rueckwaerts(x)
Dim y(LEN(x)-1) as String
For i = 1 To LEN(x)
	y(i-1) = MID(x,i,1)
Next i
For i = LEN(x)-1 to 0 Step -1
	z = z & y(i)
Next i
rueckwaerts = z
End Function

Gruß
Stephan

[Karolus]

Hallo

@Stephan
Ich weiss nicht ob es bei dem OP funktioniert, aber bei mir (OOo 2.02 LInux) wird die Zeile
z = z & y(i)
mit der Fehlermeldung "Unzulässiger Wert oder Datentyp. Datentypen unverträglich" bemängelt.

Eine Makro-freie Lösung hätte ich noch anzubieten:

1. Eine Matrixfunktion aus:
=ZEILE(INDIREKT("b1:b"&LÄNGE($A$1)))
2.Mit
=WENN(B1;TEIL($A$1;LÄNGE($A$1)-B2+1;1);"")
und entsprechendes "ziehen" dieser Formel die einzelnen zeichen in einer Spalte ausgeben.
3. Durch entsprechendes =VERKETTEN(d;i;e;s;e;S;p;a;l;t;e)
den Inhalt aus A1 rückwärts ausgeben.

Gruß Karo

[Stephan]

bei mir (OOo 2.02 LInux) wird die Zeile
z = z & y(i)
mit der Fehlermeldung "Unzulässiger Wert oder Datentyp. Datentypen unverträglich" bemängelt.

versuche mal z zu deklarieren:

Code: Alles auswählen

Function rueckwaerts(x) 
Dim z as String
Dim y(LEN(x)-1) as String 
For i = 1 To LEN(x) 
   y(i-1) = MID(x,i,1) 
Next i 
For i = LEN(x)-1 to 0 Step -1 
   z = z & y(i) 
Next i 
rueckwaerts = z 
End Function

Welches Argument x übergibst Du der Funktion?



Gruß
Stephan

[Karolus]

Hallo Stephan

In dieser Form funktionierts, sowohl mit Zelladressen (Inhalt Text oder Zahlenwert) als auch direkte Übergabe von
=RUECKWAERTS("text")

Schade, das ich die Funktion gar nicht benötige, werde sie aber dennoch meiner Makro-sammlung hinzufügen.

Gruß Karo