Wie importiert oder kopiert man Daten aus einer geschlossenen Arbeitsmappe in die aktuelle Arbeitsmappe?
Es ist ganz einfach, Daten aus einem geöffneten Arbeitsblatt zu kopieren und in eine andere geöffnete Arbeitsmappe einzufügen. Aber haben Sie schon einmal versucht, Daten direkt aus einer geschlossenen Arbeitsmappe in eine geöffnete zu importieren? In diesem Artikel zeige ich Ihnen, wie das geht.
Importieren von Daten aus einer geschlossenen Arbeitsmappe in Aktuelle Arbeitsmappe mithilfe von VBA-Code
Der folgende VBA-Code hilft Ihnen, Daten aus einer Arbeitsmappe zu kopieren – ohne sie zu öffnen – und in die aktuell geöffnete Arbeitsmappe einzufügen. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Importieren von Daten aus einer geschlossenen Arbeitsmappe in Aktuelle Arbeitsmappe
Sub ImportDatafromcloseworkbook()
'Updateby Extendoffice
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Application.Workbooks.Open .SelectedItems(1)
Set xAddWb = Application.ActiveWorkbook
Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
xWb.Activate
Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
xRng1.Copy xRng2
xRng2.CurrentRegion.EntireColumn.AutoFit
xAddWb.Close False
End If
End With
End Sub
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Wählen Sie im Fenster Datei öffnen die Arbeitsmappe aus, deren Daten Sie importieren möchten (siehe Screenshot):
4. Klicken Sie dann auf die Schaltfläche Öffnen, woraufhin das Dialogfeld KutoolsforExcel erscheint, in dem Sie zur Auswahl eines Datenbereichs aufgefordert werden, den Sie in eine andere Arbeitsmappe importieren möchten (siehe Screenshot):
5.Klicken Sie anschließend auf die Schaltfläche OK, wählen Sie im erscheinenden Dialogfeld eine Zelle aus, in die Sie die Daten einfügen möchten (siehe Screenshot):
6. Klicken Sie dann auf OK, und die Daten aus der geschlossenen Arbeitsmappe werden in die aktuelle Arbeitsmappe importiert.
Importieren von Daten aus einer geschlossenen Arbeitsmappe in Aktuelle Arbeitsmappe mit Kutools für Excel
Der VBA-Code mag für Excel-Anfänger etwas schwierig sein. Deshalb empfehle ich Ihnen hier ein praktisches Tool – Kutools für Excel. Mit der Funktion Datei am Cursor einfügen können Sie den gesamten Inhalt eines Arbeitsblatts aus einer geschlossenen Arbeitsmappe schnell und einfach einfügen.
Nach der Installation von Kutools für Excelgehen Sie wie folgt vor:
1.Klicken Sie auf KUTOOLS PLUS>Import/Export>Datei am Cursor einfügen(siehe Screenshot):
2. Führen Sie im Datei am Cursor einfügen-Dialogfeld die folgenden Schritte aus:
(1.) Klicken Sie auf die 
Schaltfläche, um eine Zelle auszuwählen, in die Sie die importierten Daten einfügen möchten;
(2.) Klicken Sie auf die 
-Schaltfläche, um die Arbeitsmappe auszuwählen, deren Daten Sie importieren möchten.
Hinweis: Nur Werte (keine Formeln): Wenn Sie diese Option aktivieren, werden ausschließlich die Werte importiert – Formeln werden nicht übernommen.
Formatierung nicht übertragen: Wenn Sie diese Option aktivieren, werden die Daten ohne Formatierung in das Arbeitsblatt importiert.
3. Klicken Sie dann auf OK. Befinden sich mehrere Arbeitsblätter in der Arbeitsmappe, erscheint ein Arbeitsblatt auswählen-Dialogfeld. Wählen Sie dort das Arbeitsblatt aus, dessen Daten Sie importieren möchten (siehe Screenshot):
4. Klicken Sie anschließend auf die Schaltfläche OK, und die Daten aus dem ausgewählten Arbeitsblatt werden in die aktuelle Arbeitsmappe importiert.
Laden Sie Kutools für Excel jetzt herunter und testen Sie es kostenlos!
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins