Office: (Office 2016) VBA Filecopy, gleiches PDF mehrmals unter anderem Namen speichern

Hallo zusammen

Ich habe ein Problem. Ich möchte eine abgespeicherte PDF-Datei (C:Beleg.pdf) mehrmals unter verschiedenem Dateiname speichern. Die Dateinamen habe ich im Feld A5, A6 etc. erfasst. Mit FileCopy kann ich die Datei soweit kopieren und umbennen. Jedoch nicht mehrmals die gleich Datei unter anderem Namen. Der Zielpfad wäre der gleich wie die Ursprungsdatei.

Wie schaffe ich, dass ich auf einmal alle pdf's abspeichern kann. Die Anzahl der Kopien kann variieren. Es müsste also bemerkt werden, sobald nichts mehr in der Spalte A erfasst ist.

Kann mir da jemand helfen?

Vielen Dank und liebe Grüsse

:)

 

Hallo,

geht mir geht das so:

Option Explicit

Public Sub Test()
Const FOLDER_PATH As String = "H:\Test\"
Dim lngRow As Long
For lngRow = 5 To Cells(Rows.Count, 1).End(xlUp).Row
Call FileCopy(Source:=FOLDER_PATH & "Test1.pdf", _
Destination:=FOLDER_PATH & Cells(lngRow, 1).Text & ".pdf")
Next
End Sub

 

Ungetestet, aber nach dem Schema:

Code:

 

Noch n Gedicht:
Code:

Hinweis:
Schleife und Fehlerbehandlung dürften denke ich kein Problem sein.

 

Tausend Dank Leute. Funktioniert einwandfrei und genau so wie ich es wollte.

Gute Zeit und gesund bleiben