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

Tabellenblatt aus anderer Datei importieren

Forumthread: Tabellenblatt aus anderer Datei importieren

Tabellenblatt aus anderer Datei importieren
08.10.2015 10:49:00
Mark
Hallo!
Habe einen Code der mir einen bestimmten Bereich aus einer gewählten Datei kopiert und einfügt.
Jetzt würde ich gerne anstelle des Bereichs einfach das ganze Blatt inkl. Formatierung kopieren und einfügen. Es wäre auch möglich den zuvor gewählten Bereich inkl. seiner Formatierung zu kopieren. 
Sub Reifenliste()
uitwerkingnaam = (Application.ActiveWorkbook.Name)
Filename = Application.GetOpenFilename("XLS files (*.xlsx), *.xlsx")
If Filename = "" Then
teller = 0
Do Until teller = 2
teller2 = teller + 1
MsgBox "you must select an xls file"
Filename = Application.GetOpenFilename("XLS files (*.xlsx), *.xlsx")
Loop
Else
Workbooks.Open Filename:=Filename
End If
'Festlegung des Tabellennamens auf der die Daten sind
sheetname = "Tabelle1"
'Meldung des Zwischenspeichers ausblenden
Application.DisplayAlerts = False
Worksheets(sheetname).Range("A8:J500").Copy     'Bereich der aus der  eingefügten Datei kopiert  _
wird'
bandnaam = (Application.ActiveWorkbook.Name)
Windows(bandnaam).Close
'Windows(uitwerkingnaam).Activate
'Ort an den die Daten kopiert werden'
ActiveSheet.Paste Destination:=Worksheets("Reifenliste").Range("B3")  'Beginn der eingefü _
gten Daten'
Worksheets("Reifenliste").Activate
Worksheets("Reifenliste").Range("A3").Select    'Hier steht der Name  _
der Datei die eingefügt wurde'
Selection.Formula = bandnaam
'Meldung Zwischenspeicher wieder aktivieren
Application.DisplayAlerts = True
'Zelle die nach dem Einfü _
gen makiert wird'
Worksheets("Home").Activate
Worksheets("Home").Range("B18").Select
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt aus anderer Datei importieren
12.10.2015 08:54:42
matthias
Hallo Mark,
probier es mal mit Worksheets().Copy
Worksheets(sheetname).Copy Before:=Workbooks(uitwerkingnaam).Sheets(1)
bandnaam = (Application.ActiveWorkbook.Name)
Windows(bandnaam).Close
lg Matthias

AW: Tabellenblatt aus anderer Datei importieren
12.10.2015 12:02:01
Mark
Hallo Matthias!
Danke für deine Hilfe. Wo muss ich denn das einsetzen? Leider habe ich keine Ahnung von VBA. Ich habe es an die Stelle gesetzt wo ursprünglich begonnen wurde das Blatt zu kopieren.
Leider schließt mir Excel eiskalt mein Dokument und öffnet die gewählte Datei aus der ich das Tabellenblatt kopieren wollte.

Anzeige
AW: Tabellenblatt aus anderer Datei importieren
12.10.2015 13:48:02
matthias
Hallo Mark,
du musst nur das Kopieren aus der Datei und das Einfügen in Tabelleblatt "Reifenliste" ersetzen. Zudem wird dein Name der Datei ja nicht mehr in die "Reifenliste" sondern in das kopierte Blatt geschrieben
Sub Reifenliste()
uitwerkingnaam = (Application.ActiveWorkbook.Name)
Filename = Application.GetOpenFilename("XLS files (*.xlsx), *.xlsx")
If Filename = "" Then
teller = 0
Do Until teller = 2
teller2 = teller + 1
MsgBox "you must select an xls file"
Filename = Application.GetOpenFilename("XLS files (*.xlsx), *.xlsx")
Loop
Else
Workbooks.Open Filename:=Filename
End If
'Festlegung des Tabellennamens auf der die Daten sind
sheetname = "Tabelle1"
'Meldung des Zwischenspeichers ausblenden
Application.DisplayAlerts = False
'kopiertes Blatt an 1. Stelle einfügen
Worksheets(sheetname).Copy Before:=Workbooks(uitwerkingnaam).Sheets(1)
bandnaam = (Application.ActiveWorkbook.Name)
Windows(bandnaam).Close
Sheets(1).Range("A3") = bandnaam   'Hier steht der Name der Datei die eingefügt wurde'
'Meldung Zwischenspeicher wieder aktivieren'
Application.DisplayAlerts = True
'Zelle die nach dem Einfügen makiert wird'
Worksheets("Home").Activate
Worksheets("Home").Range("B18").Select
End Sub
Zu dem Thema "Endlosschleife" und "keine Datei gewählt" sag ich mal nix weiter, dazu hatte ich mich bei deinem vorherigen Post bereits geäußert.
lg Matthias
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
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
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
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
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
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
Anzeige
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
Tabelle kopieren und in andere Datei einfügen
VBAmateur

Hallo an alle,
nachdem ich mich hier schon mehrfach mit Code bedient habe, möchte ich erstmal allen danken die sich die Mühe machen für "Gottes Lohn" anderen zu helfen.
Für die Lösung meines aktuellen Problems konnte ich leider nicht das richtige finden. Vielleicht können mir die Profis...
11.11.2011 21:33:05
Thread-ID: 1237564
8 Beiträge
Anzeige
BLatt kopieren und in andere Datei einfügen
Holger

Hallo zusammen,
das meiste habe ich mir hier aus der Onlinesuche zusammengesucht. Nun scheitere ich aber.
Folgende Ausgangslage.
Ich habe eine Datei auf, die folgenden Code beinhaltet.
Sub Dateien_aktualisieren() Sheets("Testdaten").Select On Error GoTo Fehler Range("A2").Selec...
09.01.2012 08:08:10
Thread-ID: 1245208
3 Beiträge
Anzeige
Bereich aus datei in andere Dateien Kopieren
André

Hallo Forum,
ich habe eine Excel Datei die sich im Verzeichnis "L:\Planung 2012\SAP\neu" befindet (Test.XLS)
Aus dieser Datei möchte ich den Bereich A8:B199 in alle anderen CSV-Dateien kopieren, die auch im Verzeichnis "L:\Planung 2012\SAP\neu" stehen.
Die Dateien sind nach Ziffern...
05.03.2012 13:21:49
Thread-ID: 1253629
9 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblatt aus anderer Datei importieren

Schritt-für-Schritt-Anleitung

Um ein Excel Tabellenblatt aus einer anderen Datei einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code ermöglicht es dir, ein gesamtes Blatt inklusive Formatierung in eine andere Excel-Datei zu kopieren.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code in das Modul:

    Sub Reifenliste()
   uitwerkingnaam = (Application.ActiveWorkbook.Name)
   Filename = Application.GetOpenFilename("XLS files (*.xlsx), *.xlsx")
   If Filename = "" Then
       teller = 0
       Do Until teller = 2
           teller2 = teller + 1
           MsgBox "you must select an xls file"
           Filename = Application.GetOpenFilename("XLS files (*.xlsx), *.xlsx")
       Loop
   Else
       Workbooks.Open Filename:=Filename
   End If
   'Festlegung des Tabellennamens auf der die Daten sind
   sheetname = "Tabelle1"
   'Meldung des Zwischenspeichers ausblenden
   Application.DisplayAlerts = False
   'kopiertes Blatt an 1. Stelle einfügen
   Worksheets(sheetname).Copy Before:=Workbooks(uitwerkingnaam).Sheets(1)
   bandnaam = (Application.ActiveWorkbook.Name)
   Windows(bandnaam).Close
   Sheets(1).Range("A3") = bandnaam   'Hier steht der Name der Datei die eingefügt wurde'
   'Meldung Zwischenspeicher wieder aktivieren'
   Application.DisplayAlerts = True
   'Zelle die nach dem Einfügen makiert wird'
   Worksheets("Home").Activate
   Worksheets("Home").Range("B18").Select
End Sub

  4. Schließe den VBA-Editor und führe das Makro aus, um das Excel Arbeitsblatt aus einer anderen Datei einzufügen.

Häufige Fehler und Lösungen

  • Problem: Excel schließt sich unerwartet.

    • Lösung: Stelle sicher, dass alle erforderlichen Dateien geöffnet sind, bevor du das Makro ausführst.

  • Problem: Die Datei wird nicht gefunden.

    • Lösung: Überprüfe den Dateipfad und stelle sicher, dass die Datei vorhanden ist.

  • Problem: Das Blatt wird nicht korrekt kopiert.

    • Lösung: Achte darauf, dass der Name des Blattes im Code korrekt angegeben ist.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch manuell ein Excel Blatt aus einer anderen Datei einfügen:

  1. Öffne beide Excel-Dateien.
  2. Wähle das Blatt, das du kopieren möchtest, und klicke mit der rechten Maustaste auf den Reiter.
  3. Wähle Verschieben oder Kopieren.
  4. Wähle im Dialogfeld die Zielarbeitsmappe aus und bestätige mit OK.

Diese Methode ist einfach und erfordert keine Programmierkenntnisse.

Praktische Beispiele

Ein praktisches Beispiel ist das Kopieren eines Excel Tabellenblatts von einem Bericht in eine Zusammenfassungsdatei. Hierfür kannst du entweder den VBA-Code verwenden oder die manuelle Methode, um die relevanten Daten schnell zu übertragen.

Tipps für Profis

  • Verwende Worksheet.Copy, um mehrere Blätter gleichzeitig zu kopieren.
  • Optimiere deinen Code, indem du Fehlerbehandlungsroutinen hinzufügst.
  • Experimentiere mit verschiedenen Zielorten, indem du den Parameter Before oder After in der Copy-Methode nutzt.

FAQ: Häufige Fragen

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

2. Was muss ich tun, wenn ich eine ältere Excel-Version habe?
Stelle sicher, dass deine Excel-Version VBA unterstützt. Ältere Versionen können möglicherweise nicht alle Funktionen des Codes ausführen.

Beliebteste Forumthreads (12 Monate)

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