Liebes Forum,
ich habe bereits sämtliche Beiträge durchsucht, aber bin nicht auf die Lösung meines Problems gestoßen.
Ich möchte immer das gleiche Tabellenblatt mit dem Namen "Deutsch" aus Excel-Dateien eines Ordners in eine Gesamtübersicht kopieren. In dem Ordner sind Dateien aus dem Jahr 2014 mit unterschiedlichen Kalenderwochen (KW) von 01-51.
Die Aufgabe besteht nun darin zuerst die Datei mit der KW 01 zu öffnen, das Tabellenblatt "Deutsch" zu kopieren, in einer Gesamtdatei einzufügen, die Datei "KW 01" zu schließen und die nächste Datei mit "KW 02" zu öffnen usw. bis alle Dateien in der Gesamtdatei aufgeführt sind.
Den einzelnen Vorgang für öffnen, kopieren und einfügen habe ich schon einmal herausgefunden. Bei der Schleife bin ich aber bislang gescheitert.
Sub Arbeitsblatt_kopieren()
Dim QWB As Workbook, ZWB As Workbook
Workbooks.Open "C:\xxx2014_KW01.xls" ' Wenn die Datei erst geöffnet werden muss
Set QWB = Workbooks("xxx2014_KW01.xls") ' Quelle, aus der die Tabelle kopiert werden soll
Set ZWB = ThisWorkbook
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets("Deutsch") ' Quelle
Set ZWS = ZWB.Worksheets("Tabelle1") ' Ziel
QWS.Copy after:=ZWS ' oder before
Workbooks("xxx 2014_KW01.xls").Close ' Wenn die Datei wieder geschlossen werden soll
End Sub
Wäre klasse, wenn ihr mir helfen könntet!
Danke und bis bald
Conny
|