Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Namen auslesen und Dateien umbennen

Forumthread: Namen auslesen und Dateien umbennen

Namen auslesen und Dateien umbennen
10.07.2004 23:50:02
Frank
Hallo,
Ich habe eine Tabelle. In der einen Spalte stehen die alten Dateinamen, in der anderen die neuen. Es handelt sich dabei um komplett neue Namen. Z.B. aus "Werner hier" soll werden "Lieschen dort". Alle diese Dateien liegen in einem Verzeichnis. Wie muss nun ein Script aussehen, dass die Dateinamen einfach nur austauscht, in dem es auf die Tabelle Excel zurückgreift, die Datei mit diesem Namen im definierten Verzeichnis sucht und dann durch den neuen Namen ersetzt?
Vielleicht kann mir jemand helfen. Vielen Dank.
Frank
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Namen auslesen und Dateien umbennen
Ulf
Die alten Namen stehen in Spalte A, die neuen in Spalte B. Die Anzahl
den Blattnamen und den Pfad musst du anpassen:
Option Explicit

Sub umbenennen()
Const PFAD As String = "C:\Test\"
Dim z As Byte, ws As Worksheet
Set ws = Sheets("Tabelle1")
For z = 1 To 3
Name PFAD & ws.Cells(z, 1) As PFAD & ws.Cells(z, 2)
Next
End Sub

Ulf
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige