Dateinamen ändern

[Erik Gronwald]

Hallo erstmal!

Ich hab hier ne Menge Dateien, deren Namen ich ändern möchte.
Jetziges Format: Vorname Nachname - Titel
gewünschtes Format: Nachname, Vorname - Titel

Hat jemand eine Idee wie man das anstellen könnte? Ich hab mir jede
Menge Filerenamer angeschaut, aber keiner kann das. Bekommt man das
mit VBA hin?

viele Grüße
Erik

Viele Grüße
Erik

[Alexander Kerensky]

Hallo Erik,

das sollte zu machen sein. :-)
Ich würde erstmal den Dateinamen mittels Split nach " - " aufsplitten.
Dadurch bekommst du die 2 Strings "Vorname Nachname" und "Titel".
"Vorname Nachname" kannst du dann nochmal nach " " aufsplitten. Dann
hast du 3 Strings: "Vorname", "Nachname" und "Titel" die du dann nur
noch zusammensetzen brauchst.
Hier ein schnell zusammengehacktes Beispiel:

Sub test()

Dim Dateiname As String

Dateiname = "Vorname Nachname - Titel"

Dateiname = Dateiname_umwandeln(Dateiname)

MsgBox Dateiname

End Sub

Function Dateiname_umwandeln(Dateiname As String) As String

Dim aZ() As String
Dim Titel As String

aZ = Split(Dateiname, " - ")

Titel = aZ(1)
aZ = Split(aZ(0), " ")
Dateiname_umwandeln = aZ(1) & ", " & aZ(0) & " - " & Titel

End Function



Gruß Alex

Post by Erik Gronwald
Hallo erstmal!
Ich hab hier ne Menge Dateien, deren Namen ich ändern möchte.
Jetziges Format:  Vorname Nachname - Titel
gewünschtes Format: Nachname, Vorname - Titel
Hat jemand eine Idee wie man das anstellen könnte? Ich hab mir jede
Menge Filerenamer angeschaut, aber keiner kann das. Bekommt man das
mit VBA hin?
viele Grüße
Erik
Viele Grüße
Erik
--
Der Horizont vieler Menschen ist ein Kreis mit Radius Null - und das
nennen sie ihren Standpunkt
(Albert Einstein)

[Erik Gronwald]

Danke erstmal, aber: zu schnell!

Es geht mir um die Dateinamen, die ich ändern möchte! Ich möchte alle
Dateien eines beliebigen Ordners umbenennen! Das heißt, entweder alle
Dateien auflisten, Dateinamen umformen und dann umbenennen, oder jede
Datei einzeln!


Viele Grüße
Erik