Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1440to1444
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

Dateien fortlaufend umbennen

Dateien fortlaufend umbennen
12.08.2015 11:38:50
Frank
Hallo,
ich habe im Ordner L:\Dateien
diverse Dateien stehen.
Alle haben eine Nummer und heissen:
Datei__5 von 745.xlsx
Datei__11 von 745.xlsx
usw.
Alle haben halt eine Nummer, aber nicht fortlaufend.
Ich möchte nun alle Dateien fortlaufend numeriert haben.
Datei__1 von 745.xlsx
Datei__2 von 745.xlsx
usw.
kann mir da bitte jemand den code geben.
Vielen Dank
Gruß Frank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: für derartige Aktionen: Total Commander ...
12.08.2015 11:45:59
...
Hallo Frank,
... der TC ist mehr als nur ein Tool und kann natürlich noch viel mehr als nur das von Dir gewünschte.
Ich möchte den TC jedenfalls nicht mehr missen. Sieh dazu mal hier: http://www.ghisler.com/
Gruß Werner
.. , - ...

Das hilft mir mom nicht weiter.
12.08.2015 11:59:52
Frank
Kann bitte jemand einspringen ;-)
Danke

AW: Dateien fortlaufend umbennen
12.08.2015 11:59:28
Rudi
Hallo,
Sub aaa()
Dim i As Integer, sFile As String
Const sPfad As String = "L:\Dateien\"
sFile = Dir(sPfad & "*.xlsx")
Do While sFile  ""
i = i + 1
Name sPfad & sFile As sPfad & "Datei_" & i & " von 745.xlsx"
sFile = Dir
Loop
End Sub

Gruß
Rudi

Anzeige
Danke Rudi o.w.t.
12.08.2015 12:02:44
Frank
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige