ich bräuchte bitte einmal eure Hilfe.
Ich habe ein VBA Code, der ein geschlossenes Excel öffnet und einen bestimmten Bereich in ein neues Kopiert und dann wieder schließt.
Soweit so gut.
Nun habe ich aber 12 solcher Dateien. Alles identisch aufgebaut aber unterschiedlich benahmt. Ich könnte den Code jetzt einfach 12 mal untereinander kopieren. Aber da wird sogar mir schlecht.
Das müsste doch auch per Schleife gehen.
Nur bekomme ich das leider nicht zum fliegen.
Meine Idee wäre:
Ich definiere Variablen für die Dateinamen. (Projectfile1, Projectfile2, Projectfile12)
Dann würde ich diese für die Schleife
For n = 1 To 12
nutzen.
Da brauche natürlich strings und dachte mir ich würde n mit m = CStr(n) innerhalb der Schleife in Strings umwandeln.
Das "zusammensetzen der Dateinamen funktioniert aber leider nicht.
Bin ich da auf dem Holzweg, oder hat jemand noch eine andere Idee, wie ich das machen kann?
Vielen Dank für eure Hilfe!
Viele Grüße
Oliver
Hier mal meine kompletter Code bis jetzt mit zwei Dateien als Test:
Sub Kopieren()
Application.ScreenUpdating = False
Dim leereZeile
Dim Targetfile As String
Dim TargetfileTab, ProjectTab As String
Dim Projectpath As String
Dim Projectfile1, Projectfile2 As String
Dim lngLastRow As Long
Dim n As Integer
Dim m As String
' ***** Dateinamen pflegen ******
Targetfile = "DCX Tracker.xlsm"
TargetfileTab = "Input B"
Projectpath = "C:\2_Working Material\Excel\CopyFromClosedFiles\"
ProjectTab = "Avail."
Projectfile1 = "File1.xlsx"
Projectfile2 = "File2.xlsx"
' ***** Schleife zum Kopieren *******
For n = 1 To 2
m = CStr(n)
leereZeile = Workbooks(Targetfile).Sheets(TargetfileTab).Cells(Rows.Count, 2).End(xlUp). _
_
Row + 1
Workbooks.Open Projectpath & Projectfile + m '