Text in Feldern genau spiegeln

Computer: Software & Programmierung Office Software
#1

Hallo,

ich muss in bestehenden Felder die Bezeichnung genau spiegelen. Wenn die Bezeichnung also vorher XX4711 ist, muss nachher 1174XX raus kommen. Es handelt sich um viele Tausend Zeilen, daher wäre eine Formel ne feine Sache. Jemand ne Idee?

#2

ich muss in bestehenden Felder die Bezeichnung genau
spiegelen. Wenn die Bezeichnung also vorher XX4711 ist, muss
nachher 1174XX raus kommen. Es handelt sich um viele Tausend
Zeilen, daher wäre eine Formel ne feine Sache. Jemand ne Idee?

Hallo Daniel,

Tabellenblatt: [Mappe1]!Tabelle1
 │ A │ B │ C │ D │ E │ F │ G │ H │ I │
──┼─────────┼─────────┼────────┼───────┼──────┼─────┼────┼───┼───┤
1 │ XX4711 │ 1174XX │ 1174X │ 1174 │ 117 │ 11 │ 1 │ │ │
──┼─────────┼─────────┼────────┼───────┼──────┼─────┼────┼───┼───┤
2 │ Bäcker │ rekcäB │ rekcä │ rekc │ rek │ re │ r │ │ │
──┼─────────┼─────────┼────────┼───────┼──────┼─────┼────┼───┼───┤
3 │ Metzger │ regzteM │ regzte │ regzt │ regz │ reg │ re │ r │ │
──┴─────────┴─────────┴────────┴───────┴──────┴─────┴────┴───┴───┘
Benutzte Formeln:
B1: =C1&TEIL($A1;SPALTE()-1;1)

Formel aus B1 kopieren nach B1:J1

A1:I3
haben das Zahlenformat: Standard

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Gruß
Reinhard

#3

Grüezi Daniel

ich muss in bestehenden Felder die Bezeichnung genau
spiegelen. Wenn die Bezeichnung also vorher XX4711 ist, muss
nachher 1174XX raus kommen. Es handelt sich um viele Tausend
Zeilen, daher wäre eine Formel ne feine Sache. Jemand ne Idee?

Das kannst Du sehr einfach mit einer benutzerdefinierten Funktion lösen:

Public Function Spiegeln(rngZelle As Range) As Variant
'© [email protected] / 07.12.2006
'Gibt den Inhalt einer Zelle in umgekehrter Reihenfolge wieder
 Spiegeln = StrReverse(rngZelle.Text)
End Function

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -