Excel Makro - Wort nach hinten verschieben

fkress

Lieutenant
Registriert
Nov. 2004
Beiträge
568
Hallo,

ich habe eine Frage, und zwar bin ich dabei meine Filme aufzulisten und mache das in Excel. Nun habe ich gemerkt, das es vielleicht besser wäre einen Film wie "Das Ende" in "Ende, Das" umzubenennen. Nun sind das aber doch einige und ich wollte ein Makro aufzeichnen. Nu klappt das leider nicht so einfach.

Kann mir vielleicht jemand helfen?

Danke!
 
Das geht mit ein bisschen Umstand...

Zuerst den Bereich mit den Namen markieren: Reiter "Daten" -> Text in Spalten. "Feste Breite" Wählen und fertig stellen.

Nun sollte alles in den spalten getrennt sein und lässt sich mit der Formel "=verketten(B1;", ";A1) etc. wieder neu zusammenfügen.
 
Mit dieser Formel würde es gehen:

=TEIL(A1;(FINDEN(" ";A1)+1);(LÄNGE(A1)-FINDEN(" ";A1)))&", "&LINKS(A1;(FINDEN(" ";A1)-1))

Sieht dann so aus:

[table="width: 500, class: grid, align: left"]
[tr]
[td]Das Ende
[/td]
[td]Ende, Das[/td]
[/tr]
[tr]
[td]Conan
[/td]
[td]#WERT![/td]
[/tr]
[tr]
[td]Terminator 2[/td]
[td]2, Terminator[/td]
[/tr]
[tr]
[td]Hugo Cabret
[/td]
[td]Cabret, Hugo
[/td]
[/tr]
[/table]

#Wert! musst du noch abfangen oder eben rauslassen.
 
wenn der titel in A1 steht:

=WENN(ODER(LINKS(A1;3)="Das";LINKS(A1;3)="Die";LINKS(A1;3)="Der");TEIL(A1;5;100)&", "&LINKS(A1;3);A1)

kein makro aber funktioniert ;-)
 
Ich habe es so gemacht wie Bocan es vorgegeben hat und es funktioniert einwandfrei!

Vielen Dank Euch allen!
 
Zurück
Oben