Ich möchte eine Excel-Datei vervielfältigen. Die erstellen Kopien sollten den Namen aus einer Liste in Tabelle1 A1:A20 nehmen.
Bisher bin ich so weit gekommen. Was mir fehlt ist die Schleife, damit es eben diese Code x-mal ausführt (Bsp. 20-mal und dafür die Dateinamen aus A1:A20 nimmt.
Kann mir jemand diesen Teil bitte ergänzen?
Danke!
LG, Jakob
Sub Datei_kopieren()
Dim fs As Object, strFile As String
Set fs = CreateObject("Scripting.FileSystemObject")
strFile = Dir("C:\Users\weiss\Desktop\Excel\CopyFile.xlsm")
If strFile "" Then
fs.copyFile "C:\Users\weiss\Desktop\Excel\CopyFile.xlsm", _
"C:\Users\weiss\Desktop\Excel\CopyFile" & "_" & Sheets("test").Cells(1, 1) & ".xlsm" _
End If
End Sub