Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt mit VBA kopieren und in andere Datei

Forumthread: Tabellenblatt mit VBA kopieren und in andere Datei

Tabellenblatt mit VBA kopieren und in andere Datei
12.10.2006 19:11:57
reiner
Hallo Leute,
Die Datei „DatenAlt.xls“ enthält für jeden Monat seit Jan. 2000 ein separates Tabellenblatt mit ca. jeweils 3000 Datensätzen. Inzwischen umfasst die Dateigröße mit 81 Tabellenblättern sowie Programmcode für Auswertungen auf einer UF ca. 41 MB. Auf der UF wird anhand von Optionsschaltflächen jeweils ein Jahrgang angewählt; eine ComboBox listet die diesem Jahrgang zugehörigen Tabellenblattnamen auf: (Jan., Feb.,...Nov., Dez.). Durch Markierung eines dieser Einträge wird das entsprechende Tabellenblatt kopiert und in das Tabellenblatt „Auswertung“ zur weiteren Bearbeitung kopiert. Soweit funktioniert alles wunderbar.
Zur Reduzierung der Dateigröße will ich nun alle zu einem Jahrgang gehörenden Tabellenblätter aus „DatenAlt.xls“ ausschneiden und in jeweils eine neue Datei mit dem Namen „2000.xls“ (2001.xls, 2002.xls usw. bis 2005.xls) einfügen. Die Jahrgangs- und Monatsauswahl soll weiterhin wie oben beschrieben erfolgen.
Es sind also 2 Dateien geöffnet: „DatenAlt.xls“ und z.B. „2002.xls“. Die Auswahl und das anschließende Markieren (zum Kopieren) des gewählten Tabellenblattes in „2002.xls“ funktioniert bereits. Mit dem anschließenden Einfügen in das Blatt „Auswertung“ in „DatenAlt.xls“ gibt es aber noch ein Problem.
Mit: Selection.Copy After:=Workbooks(„DatenAlt.xls“).Sheets("Auswertung")
ist es noch nicht möglich die Zieldatei anzusprechen.
Wie müsste der Code abgeändert werden?
mfg
reiner
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt mit VBA kopieren und in andere D
12.10.2006 21:21:50
fcs
Hallo reiner,
mir nicht ganz klar, was du genau möchtest.
Nach deiner Beschreibung möchtest du den Datenbereich in einem Monatsblatt in einer Jahresdatei in das Blatt "Auswertung" in der Datei "DatenAlt.xls" kopieren. Dein Codebeispiel, das nicht funktioniert, gilt für das Kopieren ganzer Tabellenblätter.
Ich gehe mal davon aus, dass in der Codezeile vorher der entsprechende zu kopierende Zellbereich mit Select ausgewählt ist. Dann sieht die Codezeile für das Einfügen des Zellbereiches etwa wie folgt aus:

Selection.Copy Destination:=Workbooks("DatenAlt.xls").Sheets("Auswertung").Range("A1")

Dabei ist "A1" die Zelle in der das Einfügen der Kopie des selektierten Zellbereichs beginnt.
Gruss
Franz
Anzeige
AW: Tabellenblatt mit VBA kopieren und in andere D
12.10.2006 23:11:20
reiner
Hallo Franz,
das Kopieren ist mit Deinem Vorschlag möglich und funktioniert auch. Wie lässt es sich aber darstellen dass anschließend das Tabellenblatt „Auswertung“ mit dem neu hineinkopierten Inhalt angezeigt wird?
„Workbooks.Open“ wäre wohl nicht der richtige Aufruf denn damit würde die Datei „DatenAlt.xls“ nochmals aufgerufen was aber nicht sinnvoll ist da diese Datei ja bereits gestartet wurde.
mfg
reiner
Anzeige
AW: Tabellenblatt mit VBA kopieren und in andere D
13.10.2006 00:52:52
fcs
Hallo reiner,

Workbooks("DatenAlt.xls").Activate
Sheets("Auswertung").Select

Gruss
Franz
AW: Tabellenblatt mit VBA kopieren und in andere D
13.10.2006 13:34:52
reiner
Hallo Franz,
das Einfügen der Datensätze in „DatenAlt.xls“ sowie die Anzeige des gewähltes Datenblatts funktionieren nun. Ein Problem ist momentan noch das Schließen ohne Speichern der Datei „2002.xls“ nach erfolgtem Einfügen.
Mit:
Application.DisplayAlerts = False 'Löschabfrage unterdrücken
Workbooks(„2002.xls“).Close 'Datei schließen
dauert das Schließen der Datei ca. 25 sec. – also viel zu lange.
Ohne „Application.DisplayAlerts = False“ lässt sich das Schließen zwar beschleunigen aber dafür muss ich beantworten ob die Datei zuvor gespeichert werden soll; bei Antwort „NEIN“ erfolgt eine weitere Abfrage ob die Inhalte der Zwischenablage pespeichert oder gelöscht werden sollen.
Wie also lässt sich das Schließen ohne jegliche Abfrage durchführen?
mfg
reiner
Anzeige
AW: Tabellenblatt mit VBA kopieren und in andere D
13.10.2006 13:45:54
Stefan
Hallo Reiner,
Probier das Schliessen mal mit
Workbooks("DatenAlt.xls").Close SaveChanges:=False
ohne die DisplayAlerts-Zeile.
Schoene Gruesse
Stefan
AW: Tabellenblatt mit VBA kopieren und in andere D
13.10.2006 14:28:58
reiner
Hallo Stefan,
mit Deinem Vorschlag lässt sich zwar die erste (Speicher-) Abfrage verhindern, die zweite Abfrage ob die Inhalte der Zwischenablage gespeichert oder gelöscht werden sollen, jedoch nicht.
mfg
reiner
Anzeige
AW: Tabellenblatt mit VBA kopieren und in andere D
13.10.2006 14:52:17
Stefan
Hallo Reiner,
Neuer code:
Application.CutCopyMode = False
Workbooks("DatenAlt.xls").Close SaveChanges:=False
Ich hoffe das funktioniert jetzt fuer beides, und auch in der Geschwindigkeit die Du Dir vorstellst.
Schoene Gruesse
Stefan
AW: Tabellenblatt mit VBA kopieren und in andere D
13.10.2006 15:04:30
reiner
Hallo Stefan,
Nach dem Löschen der Zwischenablage lässt sich auch die Datei ohne Nachfrage schließen.
Danke für Deinen Beitrag
mfg
reiner
Anzeige

Forumthreads zu verwandten Themen

Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Worksheet in andere Datei kopieren
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
ich versuche eine Tabelle (Worksheet) von einer in eine andere Excel-Datei zu kopieren, und zwar so:
Workbooks("Datei1.xls").Worksheets("Zukopieren").Copy After:=Workbooks("Datei1.xls").Worksheets
(Sheets.Count)
Leider klappt das n...
03.02.2009 08:15:00
Thread-ID: 1046501
7 Beiträge
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
Zugriff auf Tabellenblatt in anderer Datei
Ulrich

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 18:03:43
Thread-ID: 1055274
2 Beiträge
Blätter in neue Datei kopieren
Tobiax

Hallo!
Ich möchte aus der Datei "x.xls", 5 bestimmte Tabellenblätter (A, B, C, D, E) in die Datei "y.xls" kopiert haben.
Wie bekomme ich das per Makro hin?
Toby ...
P.S.: Zur Not kann mit den 5 Blättern auch neue Datei generiert werden mit dem Namen "y.xls".
27.07.2009 11:48:47
Thread-ID: 1091559
6 Beiträge
aus anderer ExcelDatei Daten kopieren
stefan

Hallo, einen habe ich noch:
ich habe 3 Dateien aus denen ich jeweils Daten in eine Masterdatei kopieren will. Dafür lege ich neue Sheets in der Masterdatei an. Aber wie kriege ich die Dateien geöffnet, einen Bereich markiert, kopiert und ihn dann in der Masterdatei eingefügt?
Bisher hab...
30.07.2009 17:40:48
Thread-ID: 1092608
6 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Tabellenblatt in andere Arbeitsmappe kopieren
Annette

Hallo,
langsam verzweifel ich:
Ich möchte mittels eines Makros das Tabellenblatt „123“ der Arbeitsmappe „ABC“ in die Arbeitsmappe „DEF“ (nicht geöffnet) kopieren.
Der Name des Tabellenblatts soll beibehalten werden. Falls jedoch das Blatt vorhanden ist, soll es ersetzt werden.
...
05.05.2010 19:44:02
Thread-ID: 1155669
2 Beiträge
Kopieren eines Makros in eine andere Datei
Paul

Hallo,
wie kann ich ein bestehendes Makro in eine andere Datei übernehmen?
Also von Datei mit Makro in Datei ohne Makro
Danke im Voraus für die Hilfe.
Paul
10.01.2011 18:24:00
Thread-ID: 1194896
5 Beiträge
Tabellenblatt in alle Dateien eines Ordn. kopieren
Markus

Hallo Zusammen,
ich bräuchte mal wieder eure Hilfe!! Sorry!!!
ich möchte gerne ein Tabellenblatt "Reperatur" in alle Exceldateien eines Ordners "Liste" kopieren.
Mein Gedanke dazu war, dass ich über folgende Schleife (aus einem Forum) die Dateien öffne und jeweils das Tabellenblatt...
09.03.2011 19:16:47
Thread-ID: 1205030
6 Beiträge
Wert in andere Datei kopieren, wenn....
Sven

Hi,
ich hoffe ihr könnt mir helfen.
Ich habe 2 Dateien.
In der 1 Datei soll sobald in Spalte E ein "neuer!" Wert eingetragen wird, in die 2 Datei in Spalte A "XXX" und in die Spalte I der neue Wert aus der 1 Datei in die nächst freien Zeile eintragen.
Habt ihr eine Idee?
20.04.2011 10:24:40
Thread-ID: 1211140
11 Beiträge
Inhalte aus anderer Datei kopieren
Mathias

Hallo nochmal,habe ein zweites Problem, das zwar schon in verschiedenster Form hier diskutiert wurde aber es trotzdem bei mir nicht klappt :(
Ich möchte aus einer anderen Excel Datei die Inhalte eines best. Bereiches in eine andere Datei kopieren (per Makro). Dabei ist die Quelldatei stets g...
17.05.2002 11:20:15
Thread-ID: 121620
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblatt mit VBA in eine andere Datei kopieren

Schritt-für-Schritt-Anleitung

Um ein Tabellenblatt mit VBA in eine andere Excel-Datei zu kopieren, befolge diese Schritte:

  1. Öffne die Quell- und Zieldatei: Stelle sicher, dass beide Dateien, die Quell-Datei z.B. "DatenAlt.xls" und die Zieldatei, z.B. "2002.xls", geöffnet sind.

  2. Markiere das gewünschte Tabellenblatt: Wähle das Tabellenblatt aus, das du kopieren möchtest.

  3. Kopiere das Tabellenblatt: Verwende den folgenden VBA-Code, um das aktive Tabellenblatt in die Zieldatei zu kopieren:

    ActiveSheet.Copy After:=Workbooks("DatenAlt.xls").Sheets("Auswertung")

  4. Aktiviere das Zieldatei-Tabellenblatt: Um das neue Tabellenblatt anzuzeigen, verwende diesen Code:

    Workbooks("DatenAlt.xls").Activate
Sheets("Auswertung").Select

  5. Schließe die Zieldatei ohne Speichern: Um die Zieldatei zu schließen, ohne eine Abfrage zu erhalten, füge diesen Code hinzu:

    Application.CutCopyMode = False
Workbooks("2002.xls").Close SaveChanges:=False

Häufige Fehler und Lösungen

  • Fehler: Zieldatei nicht ansprechbar

    • Stelle sicher, dass die Zieldatei (z.B. "DatenAlt.xls") korrekt geöffnet ist und der Name exakt übereinstimmt.

  • Problem beim Schließen der Datei

    • Verwende Application.CutCopyMode = False, um die Abfragen beim Schließen der Datei zu unterdrücken.

Alternative Methoden

Falls du das Tabellenblatt in eine andere Excel-Datei kopieren möchtest, ohne den gesamten Inhalt zu kopieren, kannst du auch spezifische Bereiche kopieren:

Selection.Copy Destination:=Workbooks("DatenAlt.xls").Sheets("Auswertung").Range("A1")

Diese Methode ermöglicht dir, nur einen bestimmten Zellbereich zu kopieren.

Praktische Beispiele

Hier ein Beispiel, um ein Excel Tabellenblatt aus einer Datei in eine andere zu kopieren:

Sub KopiereTabellenblatt()
    Dim Quelle As Workbook
    Dim Ziel As Workbook

    Set Quelle = Workbooks("DatenAlt.xls")
    Set Ziel = Workbooks("2002.xls")

    Quelle.Sheets("Januar").Copy After:=Ziel.Sheets(Ziel.Sheets.Count)

    ' Aktiviere das Tabellenblatt in der Quell-Datei
    Quelle.Activate
    Quelle.Sheets("Auswertung").Select
End Sub

Dieses Skript kopiert das Tabellenblatt "Januar" aus "DatenAlt.xls" und fügt es am Ende der Zieldatei "2002.xls" ein.

Tipps für Profis

  • Nutze Variablen: Um deinen Code flexibler zu gestalten, verwende Variablen für die Dateinamen und Tabellenblattnamen.

  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen hinzu, um unerwartete Probleme zu vermeiden, etwa wenn eine Datei nicht geöffnet ist.

  • Schneller Zugriff: Verwende Application.DisplayAlerts = False, um die Benutzeroberfläche zu entlasten, wenn du viele Dateien bearbeitest.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Tabellenblätter gleichzeitig kopieren?
Du kannst eine Schleife verwenden, um durch die gewünschten Tabellenblätter zu iterieren und sie nacheinander zu kopieren.

2. Was mache ich, wenn die Zieldatei nicht geöffnet ist?
Stelle sicher, dass du die Zieldatei mit Workbooks.Open öffnest, bevor du versuchst, das Tabellenblatt zu kopieren.

3. Kann ich die Zwischenablage nach dem Kopieren leeren?
Ja, benutze Application.CutCopyMode = False, um die Zwischenablage zu leeren und die Abfrage beim Schließen der Datei zu vermeiden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige