Dateien fortlaufend umbennen

Bild

Betrifft: Dateien fortlaufend umbennen
von: Frank
Geschrieben am: 12.08.2015 11:38:50

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

Bild

Betrifft: AW: für derartige Aktionen: Total Commander ...
von: ... neopa C
Geschrieben am: 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
.. , - ...

Bild

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

Bild

Betrifft: AW: Dateien fortlaufend umbennen
von: Rudi Maintaire
Geschrieben am: 12.08.2015 11:59:28
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

Bild

Betrifft: Danke Rudi o.w.t.
von: Frank
Geschrieben am: 12.08.2015 12:02:44
.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Dateien fortlaufend umbennen"