Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1564to1568
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
Inhaltsverzeichnis

Excel Datei Namen per Batch ändern - VBA

Excel Datei Namen per Batch ändern - VBA
26.06.2017 09:39:59
Sasko
Hallo zusammen,
gibt es eine einfache Möglichkeit die Dateinamen per VBA zu ändern?
Userbild
Hier sieht man z.B. die Zahlen 06 für den aktuellen Monat. Ich habe ca 30 Dateien die ich jeden Monat manuell auf den neuen Monat in eine Zahl umbenennen muss. Jetzt müsste quasi wie im Bild oben zu sehen überall die "06" zu eine "07" umbenannt werden. Sowohl vorne als auch hinten im Datum.
Jemand eine Lösung?
Danke
LG
Sasko

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Datei Namen per Batch ändern - VBA
26.06.2017 11:38:17
Arthur
Hier ist eine kleine Sub, die das übernimmt:
Sub RenameMyFiles()
Const Pfad As String = "X:\"
Const FNMuster As String = "06_Test?_V1_(gültig_ab_?.06.?).xls*"
Dim FileName As String
Dim FileNameRen As String
FileName = Dir(Pfad & FNMuster)
While FileName  ""
FileNameRen = "07" & Mid$(FileName, 3, 24) & "07" & Mid$(FileName, 29)
Name Pfad & FileName As Pfad & FileNameRen
FileName = Dir()
Wend
End Sub

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige