Supportnet / Forum / Tabellenkalkulation

Hallo, ich möchte bestimmte Wertebereiche aus mehreren Tabellen die in verschiedenen Verzeichnissen liegen in bestimmte Wertebereiche einer einzigen Tabelle einfügen. Bis jetzt habe ich dies nur geschafft wenn alle "Quelldateien" im gleichen Verzeichnis lagen und alle geöffnet waren. Hier mein Code dafür soweit: [code] Workbooks("2 Februar 2007 Tagesteam.xls").Worksheets("Frühschicht 1").Range("I3:N36").Copy _ Workbooks("Blub.xls").Worksheets("Tabelle4").Range("C10:H43") Application.CutCopyMode = False Workbooks("2 Februar 2007 Tagesteam.xls").Worksheets("Frühschicht 2").Range("I5:N14").Copy _ Workbooks("Blub.xls").Worksheets("Tabelle4").Range("C48:H57") Application.CutCopyMode = False Workbooks("2 Februar 2007 Team 1.xls").Worksheets("Team 1").Range("I3:N13").Copy _ Workbooks("Blub.xls").Worksheets("Tabelle4").Range("M10:R20") Application.CutCopyMode = False Workbooks("2 Februar 2007 Team 2.xls").Worksheets("Team 2").Range("I5:N13").Copy _ Workbooks("Blub.xls").Worksheets("Tabelle4").Range("M22:R30") Application.CutCopyMode = False Workbooks("2 Februar 2007 Team 3.xls").Worksheets("Team 3").Range("I5:N13").Copy _ Workbooks("Blub.xls").Worksheets("Tabelle4").Range("M32:R40") Application.CutCopyMode = False Workbooks("2 Februar 2007 Team 4.xls").Worksheets("Team 4").Range("I5:N12").Copy _ Workbooks("Blub.xls").Worksheets("Tabelle4").Range("M42:R49") Application.CutCopyMode = False Workbooks("2 Februar 2007 Team 5.xls").Worksheets("Team 5").Range("I5:N13").Copy _ Workbooks("Blub.xls").Worksheets("Tabelle4").Range("M51:R59") Application.CutCopyMode = False [/code] Meine Frage : Gibt es eine Möglichkeit die entsprechenden Quelldateien versteckt im Hintergrund aus dem jeweiligen Verzeichnis heraus zu öffnen und dann wie gehabt die Daten zu markieren und zu kopieren ? Schonmal vielen Dank für eure Hilfe! Mfg Stefan

Hi Stefan,

schau mal in der Hilfe unter dem Stichwort Open (Methode) nach. Dort wird gezeigt, wie du eine Arbeitsmappe öffnen kannst. Am Ende jedes deiner Teil-Codes (nach erfolgter Kopie) fügst du dann noch hinzu ActiveWorkbook.Close, damit die gerade geöffnete Mappe wieder geschlossen wird.

Bis später,
Karin

• Ich möchte in Excel den Inhalte aller TXT-Dateien eines Verzeichnisses in ein Excel Blatt kopieren.
• MS-Access97 SR2b, Betriebssystem MS-Windows XP sp2 prof. dt.
• mehrere Excel dateien zu einer
• excel
• Getopenfilename Dialogbox im Hintergrund!