For Zaehler = KWAnfang To KWEnde
If Zaehler < 10 Then Zaehler = "0" & Zaehler
Datei = "UMSATZ_VERTRIEB_" & Jahr & "_KW_" & Zaehler & ".xls"
Workbooks.Open FileName:="K:\Vertrieb\Umsatzlisten\" & Jahr & "\" & Datei
Workbooks(Datei).Activate
Sheets("WA").Select
Zeile = Cells(1000, 1).End(xlUp).Row
ActiveSheet.Range(Cells(12, 1), Cells(Zeile, 8)).Select
Selection.Copy
Workbooks("VertriebX").Activate
** Sheets("Daten").Range(Cells(Cells(1000, 1).End(xlUp).Row, 1)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next Zaehler
End Sub
Dieser soll bewirken, dass eine zweite Datei geöffnet wird. In dieser wird das Sheet "Daten" angesprochen und es soll der dynamische Tabellenbereich von A12 bis irgendwo gesamt kopiert werden. Anschließend wird wieder auf die ursprüngliche Datei zurückgegriffen. Soweit funktioniert auch alles.
Ab ** funktioniert es einfach nicht mehr und ich verstehe nicht warum. In der Datei "VertriebX" soll im Sheet "Daten" die erste freie Zeile gefunden werden und dort der kopierte Bereich eingefügt werden.
Ich hoffe es ist klar geworden, was ich mit diesem Code bezwecken möchte und irgendwer findet eine Lösung. Hierfür schon Mal vielen Dank!!
Gruß aus Köln