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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige