Dateinamen ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Habe jetzt diesen Code erstellt.
Leider bleibt er auf der letzten Zeile hängen.

FileCopy QuellOrdner & AlterName, ZielOrdner & NeuerName

Wenn ich mit der Maus drüber gehe, dann zeigt er mir die Richtigen Pfade und Dateinamen an, aber kopiert die Daten nicht auf das Zielpfad.

Habt ihr ein Rat?

Vielen Dank

Sub KopiereUndBenennePDF()
Dim QuellOrdner As String
Dim ZielOrdner As String
Dim Ws As Worksheet
Dim Zeile As Long

' Setzen Sie den Pfad zum Quell- und Zielordner
QuellOrdner = "F:\Makro Tests\1" ' Hier den Pfad zum Quellordner eintragen
ZielOrdner = "F:\Makro Tests\2" ' Hier den Pfad zum Zielordner eintragen

' Setzen Sie die Arbeitsblattreferenz
Set Ws = ThisWorkbook.Worksheets("Abgleich") ' Hier den Namen Ihres Arbeitsblatts eintragen

' Durchlaufen Sie die Zeilen der Tabelle
For Zeile = 2 To Ws.Cells(Rows.Count, 1).End(xlUp).Row
Dim AlterName As String
Dim NeuerName As String

' Lesen Sie die alten und neuen Dateinamen aus der Tabelle
AlterName = Ws.Cells(Zeile, 1).Value
NeuerName = Ws.Cells(Zeile, 2).Value & ".pdf"

' Kopieren und umbenennen der Datei
FileCopy QuellOrdner & AlterName, ZielOrdner & NeuerName
Next Zeile
End Sub

Hallo Bauer,

wenn die Datei nicht gefunden wird, wird nichts kopiert.
Deine Verzeichnis-Definition muss mit "\" enden, sonst ist die Zusammenfassung
F:\Makro Tests\1ersteDateiname.xls
und nicht
F:\Makro Tests\1\ersteDateiname.xls

Zeichenkette, die sich während dem Codefverlauf nicht ändern, kann man als Konstanten definieren (macht den Code leichter).
Variablen werden immer am Anfang definiert ("Dim"). Wo und wann diese tatsächlich entstehen, verwaltet VBA selbst.

(platziere bitte dein Code anhand der Markierung, siehe oben "Code <pre...")

Sub KopiereUndBenennePDF()

Dim Ws As Worksheet

Dim Zeile As Long

Dim AlterName As String

Dim NeuerName As String



' Setzen Sie den Pfad zum Quell- und Zielordner

Const cQVerz = "F:\Makro Tests\1\" ' Hier den Pfad zum Quellordner eintragen

Const cZVerz = "F:\Makro Tests\2\" ' Hier den Pfad zum Zielordner eintragen



' Setzen Sie die Arbeitsblattreferenz

    Set Ws = ThisWorkbook.Worksheets("Abgleich") ' Hier den Namen Ihres Arbeitsblatts eintragen



' Durchlaufen Sie die Zeilen der Tabelle

    For Zeile = 2 To Ws.Cells(Rows.Count, 1).End(xlUp).Row

    ' Lesen Sie die alten und neuen Dateinamen aus der Tabelle

        AlterName = Ws.Cells(Zeile, 1).Value

        NeuerName = Ws.Cells(Zeile, 2).Value & ".pdf"

    ' Kopieren und umbenennen der Datei

        FileCopy cQVerz & AlterName, cZVerz & NeuerName

    Next Zeile

End Sub

VG
Yal

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateinamen ändern

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread