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

kopieren in eine andere Excel-Datei

Forumthread: kopieren in eine andere Excel-Datei

kopieren in eine andere Excel-Datei
31.08.2017 15:01:15
Günter
Hallo zusammen,
ich möchte aus einer Excel-Datei mit 5 Tabellenblättern 4 Tabellenblätter in eine andere bestehende Excel-Datei kopieren.
Mein Code um ein sheet zu kopieren sieht wie folgt aus:
########################################################## 

Sub share_aktualisieren()
strpfad = ThisWorkbook.Path
Sheets("Systemdaten_PI").Select
Range("A1:F" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Copy
Workbooks.Open Filename:=strpfad & "\share.xlsx" 'xls.Datei öffnen
Worksheets("Systemdaten_PI").Activate 'Arbeitsblatt Aktiv setzen
Range("A1").PasteSpecial Paste:=xlPasteValues 'Wert aus A1:F einfügen
ActiveWorkbook.Save 'share.xlsx sichern
Workbooks.Close 'share.xlsx scliessen"
Sheets("roh").Select
Range("A1").Select
End Sub

##########################################################
Das Sichern und Schliessen der Datei "share.xlsx" funktioniert, aber:
Wo stehe ich jetzt programmtechnisch? Wieder auf der Ursprungsdatei "Daten.xlsm", oder?! Warum werde ich jetzt von Excel gefragt, ob ich die Änderungen an Daten.xlsm speichern möchte?
Und wie kopiere ich jetzt weitere Sheets aus Daten.xlsm in share.xlsx. Wenn ich workbooks.open erneut aufrufe, bekomme ich die Meldung, dass das workbook schon geöffent ist?
Viele Grüße
Günter
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopieren in eine andere Excel-Datei
31.08.2017 15:18:49
mmat
Hallo,
Falsch:
Workbooks.Close 'share.xlsx scliessen"
versucht, alle offenen Arbeitsmappen zu schließen. Für deine Zwecke wäre wohl 
ActiveWorkbook.close false
geeignet.
Danach ist wieder die Mappe aktive, die vor dem befehl "Workbooks.Open usw..." aktiv war.
vg, MM
Anzeige
AW: kopieren in eine andere Excel-Datei
31.08.2017 15:31:23
Günter
Vielen Dank für die schnelle Hilfe.
Bin nicht so der VBA-Spezialist und bin in dem Thema etwas eingerostet, aber ich arbeite daran :-)
Gruß
Günter
AW: kopieren in eine andere Excel-Datei
31.08.2017 15:41:26
mmat
Ich hab ganz vergessen, dass du noch mehrere Arbeitsblätter kopieren möchtest. Das erfordert einen etwas umfangreicheren Umbau und ein lösen von aktiven Elementen. Ungefähr so: 
Sub share_aktualisieren()
Dim Quelle As Workbook, Ziel As Workbook, strpfad As String
strpfad = ThisWorkbook.path
Set Quelle = ActiveWorkbook
Quelle.Sheets("Systemdaten_PI").Range("A1:F" & ActiveSheet.UsedRange.Rows.Count).SpecialCells( _
xlCellTypeVisible).Copy
Set Ziel = Workbooks.Open(FileName:=strpfad & "\share.xlsx") 'xls.Datei öffnen
Ziel.Worksheets("Systemdaten_PI").Range("A1").PasteSpecial Paste:=xlPasteValues 'Wert aus A1:F  _
einfügen
Quelle.Sheets("Quellblatt").Range("Quellbereich").Copy 'die nächste
Ziel.Worksheets("Zielblatt").Range("A1").PasteSpecial Paste:=xlPasteValues 'Wert einfügen
'usw ...
Ziel.Save 'share.xlsx sichern
Ziel.Close False 'share.xlsx scliessen"
Quelle.Sheets("roh").Select
Range("A1").Select
End Sub
vg, MM
Anzeige

Forumthreads zu verwandten Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
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 aus geschl. in geöffn. Datei kopieren
Alexander

Hallo zusammen,
ich habe folgendes Problem. Meine VBA Kenntnisse sind leider nicht allzu gut.
Ich habe eine geöffnete Datei und eine geschlossene Datei. Nun will ich aus der geschlossenen Datei ein Worksheet/Arbeitsblatt komplett inklusive seiner Inhalte in die aktuell geöffnete Datei...
20.01.2009 13:38:00
Thread-ID: 1041825
4 Beiträge
Anzeige
alle Tabellenblätter in anderes File kopieren
Doro

Hallo Forum!
habe eben schonmal "versucht" zu posten, aber irgendwie ist mein Beitrag weg...
Ich möchte gerne das File DatenFile öffnen, alle Tabellenblätter markieren, und dann in das File AuswerteFile kopieren, und bekomme in der letzten Zeile einen Laufzeitfehler.
Kann da jemand...
26.01.2009 16:48:18
Thread-ID: 1043937
3 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
Import eines Arbeitsblatts aus anderer Excel-Datei
eliewsam

Hallo VBA-Experten,
ist es möglich, dass ich ausgehend von einer Excel-Datei ein einzelnes Arbeitsblatt einer anderen Excel-Datei importiere. Die Vergabe eines Namens für das neue (importierte) Arbeitsblatt sollte per Dialogfenster erfolgen.
Vielleicht kann mir einer von Euch in diesbez...
04.02.2009 09:06:29
Thread-ID: 1046879
4 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
Anzeige
Daten von und in andere Arbeitsmappe kopieren
und

Hallo,
ich wollte unten angeführte Makros folgendermaßen abändern:
Die Makros sollten aus Arbeitsmappe 1, die die zu ersetzenden DAten enthält, ausgeführt werden, d.h. es sollte kein Makro in Arbeitsmappe2 verwendet werden. Die Makros müssten also die Arbeitsmappe 2 öffnen, - die Werte...
28.02.2009 17:59:02
Thread-ID: 1055113
5 Beiträge
Anzeige
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
Anzeige
Daten aus Tabellenblättern in ein Blatt kopieren
Jens

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ca. 20 Tabellenblätter.
Auf allen Tabellenblättern sind drei Zellen (A4, A6, S41), deren Werte ich gerne auf Tabellenblatt 1 (Tabelle1) kopiert hätte.
Es sollen nur Werte, keine Formate kopiert werden [.PasteSpecial Paste:=xlP...
15.07.2009 12:25:07
Thread-ID: 1088795
5 Beiträge
Tabellen in Datei kopieren
Tobiax

Hallo!
Ich möchte gerne einige meiner Tabellen per Makro in eine Andere Datei kopieren.
Allerdings sollen nur die Werte und das Format in den 4 Tabellenblätter übernommen werden. Die Formeln nicht.
Die beiden Dateien liegen IMMER im selben Ordner.
Kann mir jmd helfen?
Toby ....
25.07.2009 09:06:13
Thread-ID: 1091116
4 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
Anzeige
Anzeige

Infobox / Tutorial

Excel-Blätter in eine andere Datei kopieren

Schritt-für-Schritt-Anleitung

Um ein Excel-Arbeitsblatt in eine andere Datei zu kopieren, kannst du die folgenden Schritte befolgen:

  1. Öffne die Quell-Datei: Stelle sicher, dass die Excel-Datei, aus der du kopieren möchtest, geöffnet ist.

  2. Starte den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Erstelle ein neues Modul: Klicke mit der rechten Maustaste auf "VBAProject (deinDateiname.xlsx)" > Einfügen > Modul.

  4. Füge den folgenden VBA-Code ein:

    Sub share_aktualisieren()
   Dim Quelle As Workbook, Ziel As Workbook, strpfad As String
   strpfad = ThisWorkbook.Path
   Set Quelle = ActiveWorkbook
   Set Ziel = Workbooks.Open(Filename:=strpfad & "\share.xlsx") ' Ziel-Datei öffnen

   ' Kopiere das erste Blatt
   Quelle.Sheets("Systemdaten_PI").Range("A1:F" & ActiveSheet.UsedRange.Rows.Count).Copy
   Ziel.Worksheets("Systemdaten_PI").Range("A1").PasteSpecial Paste:=xlPasteValues

   ' Kopiere weitere Blätter
   Quelle.Sheets("Quellblatt").Range("Quellbereich").Copy
   Ziel.Worksheets("Zielblatt").Range("A1").PasteSpecial Paste:=xlPasteValues

   ' Speichere und schließe die Zieldatei
   Ziel.Save
   Ziel.Close False
End Sub

  5. Führe das Makro aus: Klicke auf F5, um das Makro auszuführen.

Häufige Fehler und Lösungen

  • Fehler: "Workbook already open": Wenn du versuchst, eine Arbeitsmappe zu öffnen, die bereits geöffnet ist, erhältst du diese Fehlermeldung. Achte darauf, die Datei nur einmal zu öffnen.

  • Fehler beim Schließen der Datei: Verwende ActiveWorkbook.Close False, um nur die aktuelle Arbeitsmappe zu schließen, anstatt alle offenen Arbeitsmappen.

  • Kopieren von nicht sichtbaren Zellen: Wenn du versuchst, Zellen zu kopieren, die ausgeblendet sind, stelle sicher, dass du die SpecialCells(xlCellTypeVisible) Methode verwendest, um nur sichtbare Zellen zu kopieren.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch manuell kopieren:

  1. Kopiere das Blatt: Rechtsklicke auf die Registerkarte des gewünschten Arbeitsblattes und wähle "Verschieben oder Kopieren".
  2. Wähle die Zieldatei: Im Dropdown-Menü wähle die Excel-Datei aus, in die du das Blatt kopieren möchtest.
  3. Klicke auf "Kopie erstellen": Setze das Häkchen und klicke auf "OK".

Diese Methode funktioniert gut, wenn du nur ein oder zwei Blätter kopieren möchtest.

Praktische Beispiele

  1. Kopieren eines Blattes aus einer anderen Datei: Wenn du ein Excel-Blatt von einer Datei in eine andere kopieren möchtest, kannst du die oben genannten VBA-Skripte anpassen, um spezifische Blätter auszuwählen.

  2. Duplizieren einer Excel-Datei: Du kannst eine Excel-Datei duplizieren, indem du einfach die Datei im Explorer kopierst und die Kopie umbenennst.

Tipps für Profis

  • Verwende VBA-Fehlerbehandlung: Implementiere Fehlerbehandlung in dein Skript, um unerwartete Fehler abzufangen und besser zu steuern.

  • Automatisiere den Prozess: Wenn du regelmäßig Excel-Blätter in andere Dateien kopieren musst, kannst du das Makro so anpassen, dass es automatisch bei einem bestimmten Ereignis ausgeführt wird (z.B. beim Öffnen einer Datei).

  • Nutze Datenüberprüfung: Überprüfe, ob die Zieldatei existiert, bevor du versuchst, sie zu öffnen, um Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Blätter auf einmal kopieren?
Du kannst die oben gezeigte VBA-Methode anpassen, um mehrere Copy-Befehle für jedes Blatt hinzuzufügen.

2. Was ist der Unterschied zwischen "Kopieren" und "Einfügen"?
"Kopieren" erstellt eine Kopie der Inhalte, während "Einfügen" die Inhalte an der gewünschten Stelle platziert.

3. Funktioniert das auch in Excel 365?
Ja, die genannten Methoden funktionieren in Excel 365 sowie in anderen gängigen Excel-Versionen.

Beliebteste Forumthreads (12 Monate)

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