Hallo zusammen,

ich habe Excel-Dateien, die einen langen Dateinamen haben.

Das wird zum Problem bei einem VBA-Tool, das ich zur Auswertung verwende. Das Tool nutzt die Dateinamen, um in einer neuen Excel-Datei damit die Tabellenblätter zu benennen. Ist die Bezeichnung zu lang arbeitet das Tool nicht weiter.

--> Leider kann ich auf den Tool-Code nicht zugreifen und will mir nun manuell helfen.

--> Deshalb würde ich gerne ein Tool erstellen, dass die Dateien kopiert und den Dateinamen umbenennt.

--> Über eine userform möchte ich den Ordner in dem die Dateien liegen auswählen.

Beispiel:

Original-Ordnername C:\Protokolle

Dateien, die im Ordner liegen:

maschinenprotokoll_zustaende_L62_M6201_20131021_150114.xls

maschinenprotokoll_zustaende_L62_M6202_20131021_150117.xls

Lösungsidee meinerseits:

1. Das neue Tool öffnet nach Auswahl des Ordners und Klick auf CommandButton die Datei "maschinenprotokoll_zustaende_L62_M6201_20131021_150114.xls".

2. Es speichert die Datei unter neuem Namen in einem neuen Ordner "Protokolle kurz". Dieser ist direkt im Ordner "Protokolle" als Unterordner.

3. Der neue Dateiname wird nicht zufällig, sondern nach einer Vorgabe erstellt. M6201 steht z.B. für Anlage A1, M6202 für Anlage A2.

--> Also macht das Tool den Abgleich z.B. über if-Schleife: Wenn der Dateiname "M6201" enthält, dann schreibe "Anlage A1" als Dateiname, wenn der Dateiname "M6202" enthält, dann...

--> Leider fehlt mir die Kenntniss das in VBA umzusetzen.

--> Über Google habe ich leider keine analogen Lösungen gefunden, die die Umbennung nach meinen Vorgaben möglich machen.

--> Deshalb würde ich mich riesig über Hilfe freuen! :o)

Besten Gruß

Dave