okay habs hinbekommen.
1) Zelle Spiegeln
2) Text in Spalten über Leerzeichen
3) Jahr und Herkunft zurückspiegeln
4) Titel ist ja jetzt auf mehrere Zellen verteilt und gespiegelt, daher erst mit
CODE
=A1&" "&B1&" "&C1&" "&D1&" "&E1
zusammengefügt und dann gespiegelt.
Das Spiegel Makro sieht so aus:
CODE
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
Danke für eure Anregungen!
PS: musste natürlich mit allerlei Hilfsspalten arbeiten.
Jetzt kann ich mich endlich von diesen Moviepilot-Datenhaien abmelden
Dieser Beitrag wurde von thewaywewalk: 25 Nov 2011, 19:26 bearbeitet