Office: Tabellenblatt in andere Arbeitsmappen kopieren

Hallo zusammen,

hatte dies schon mal gepostet aber leider bis dato keinen Tipp bekommen (31.3.) (soll keine Kritik sein *Smilie ).

Ich habe in einer Arbeitsmappe Bericht.xlsx eine Tabelle (Auswertung)
und diese Tabelle Auswertung würde ich gerne in andere Arbeitsmappen, die alle im selben Verzeichnis liegen, ans Ende kopieren lassen. Alle Mappen liegen im Verzeichnis C:\ExcelAuswertungen

Ich verwende Excel 2010

Kann mir jemand helfen?
Danke im Voraus. Wäre super, wenn jemand helfen könnte.

Rosi

:)

 

Hallo Rosi,

mein Code-Vorschlag:
Code:

Gruß
Aloys

 

Vielen Dank Aloys... genauso sollte es funktionieren *Smilie

 

Kann ich mich hier gleich mit meiner Frage anschließen?


Ich möchte aus 4 tabellenblättern (D1,D2,D3,D4) jeweils Spalte f bis h ab Zeile 2 bis Ende (leider ist die Anzahl der Zeilen immer unterschiedlich) in die Zieldatei "Zusammenführung" in a2:c2 untereinander kopieren mittels Makro.
Ich kriegs irgendwie echt nicht hin!!!
Kann mir jemand helfen? Das wäre toll!

 

Hallo Vigo,

Empfehlung für die Zukunft:
Du hast mehr Chancen, wenn du einen eigenen Thread eröffnest und dich nicht an einen, der auch schon abgeschlossen ist, anhängst.

Nun zu deinem Thema:
- sind die Tabellenblätter in einer Excel-Datei ?
- ist die Ziel-Datei schon geöffnet oder befindet sie sich im gleichen Ordner wie die Quelldatei ?

Gruß
Aloys

 

Hallo Aloys,

danke für deinen Tipp, ich werde das mit dem Thread für die Zukunft beherzigen.Und auch schon mal DANKE, dass du mir versuchst zu helfen *Smilie

Ja, es handelt sich um eine Excel- Datei. Alle 4 Tabellenblätter sind schon vorhanden und die Zieldatei auch (alles in derselben Mappe). Die Namen der Tabellenblätter sind durch D1,D2,D3,D4 stark vereinfacht dargestellt, heißen aber alle völlig unterschiedlich. Ich wollte das ganze etwas erleichtern. Es wäre schön, wenn die Option offen gehalten würde, die Spaltenanzahl (hier f bis h) beliebig anzupassen. Kannst du mir helfen?

 

Hallo Vigo,

anbei Beispielmappe mit Makro

Vigo.xlsm

Gruß
Aloys

 

Guten Morgen Aloys!

Vielen, vielen Dank für deinen Code!!! Er funktioniert! Kleines Problem: Ich hab in der Arbeitsmappe 4 Tabellenblätter, aus denen die Spalten f:g auf Tabellenblatt "Zusammenführung" in Spalte a:c untereinander zusammenkopiert werden sollen. Vor Tabellenblatt "Zusammenführung" befinden sich aber noch andere Tabellenblätter, deren Daten nicht mitkopiert werden sollen. Aktuell passiert das jedoch.
Ich könnte mir vorstellen, dass das am Befehl

For Each wsQ In ThisWorkbook.Worksheets
If wsQ.Name "Datenzusammenführung" Then

liegen könnte. Kann man hierfür nicht einfach sagen ab einem bestimmten Tabellenblatt und noch die nachfolgenden 3?

Viele Grüße,
Vigo

 

Aloys, es funktioniert, ich hab es hinbekommen! Ich habe an deinem Code folgende Anpassung vorgenommen:

For Each wsQ In ThisWorkbook.Worksheets
If wsQ.Name Like "Blubb*" Then

Vielen, vielen Dank *Smilie