Hier mal eine kleine Spielerei, für die ich selber keine Anwendung weiß. Man kann mit dem Makro die Inhalte von Zellen einer Spalte spiegeln.
Das Ergebnis:
| Inhalt ... | ... gespiegelt |
| 12345 | 54321 |
| abcde | edcba |
| AbCdEfG | GfEdCbA |
| Heinz | znieH |
| 98765 | 56789 |
Das Makro zum Kopieren:
Option Explicit
Sub spiegeln()
' Spiegelt die Inhalte der Spalte A und schreibt das Ergebnis in Spalte B
Dim r%, s%
Dim lg%
Dim str As String
For r = 1 To Range("A65536").End(xlUp).Row
lg = Len(Cells(r, 1))
For s = lg To 1 Step -1
str = str & Mid(Cells(r, 1), s, 1)
Next s
Cells(r, 2) = str
str = ""
Next r
End Sub
|