Zum Hauptinhalt springen

Wie kann man Daten aus einer geschlossenen Arbeitsmappe in die aktuelle Arbeitsmappe importieren/kopieren?

Author: Xiaoyang Last Modified: 2025-05-28

Es ist einfach, Daten aus einem geöffneten Arbeitsblatt zu kopieren und in eine andere geöffnete Arbeitsmappe einzufügen, aber haben Sie jemals versucht, Daten aus einer geschlossenen Arbeitsmappe in eine geöffnete Arbeitsmappe zu importieren? In diesem Artikel werde ich darüber sprechen, wie man Daten aus einer geschlossenen Arbeitsmappe importiert.

Daten aus einer geschlossenen Arbeitsmappe mit VBA-Code in die aktuelle Arbeitsmappe importieren

Daten aus einer geschlossenen Arbeitsmappe mit Kutools für Excel in die aktuelle Arbeitsmappe importieren


Daten aus einer geschlossenen Arbeitsmappe mit VBA-Code in die aktuelle Arbeitsmappe importieren

Der folgende VBA-Code kann Ihnen helfen, Daten aus einer Arbeitsmappe zu kopieren, ohne sie zu öffnen, und diese in die aktive geöffnete Arbeitsmappe einzufügen. Bitte folgen Sie den folgenden Schritten:

1. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Daten aus einer geschlossenen Arbeitsmappe in die aktuelle Arbeitsmappe importieren

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 dann die F5-Taste, um diesen Code auszuführen, und im Fenster Datei öffnen wählen Sie die Arbeitsmappe aus, aus der Sie Daten importieren möchten, siehe Screenshot:

vba code to select the workbook that you want to import

4. Klicken Sie dann auf die Schaltfläche Öffnen, und ein KutoolsforExcel-Dialogfeld erscheint, das Sie daran erinnert, einen Datenbereich auszuwählen, den Sie in eine andere Arbeitsmappe importieren möchten, siehe Screenshot:

vba code to select a range of data that you want to import to other workbook

5. Klicken Sie dann auf die Schaltfläche OK, im erscheinenden Dialogfeld wählen Sie eine Zelle aus, in die Sie die Daten einfügen möchten, siehe Screenshot:

 vba code to select a cell to put the data

6. Klicken Sie auf OK, und die Daten aus der geschlossenen Arbeitsmappe wurden in die aktuelle Arbeitsmappe importiert.


Daten aus einer geschlossenen Arbeitsmappe mit Kutools für Excel in die aktuelle Arbeitsmappe importieren

Der VBA-Code könnte für Excel-Anfänger etwas schwierig sein, daher empfehle ich Ihnen hier ein praktisches Tool - Kutools für Excel. Mit der Funktion Datei an Cursor einfügen können Sie den gesamten Inhalt eines Arbeitsblatts aus einer geschlossenen Arbeitsmappe schnell und einfach einfügen.

Kutools für Excel bietet über 300 erweiterte Funktionen, um komplexe Aufgaben zu vereinfachen und Kreativität sowie Effizienz zu steigern. Durch die Integration mit KI-Funktionen automatisiert Kutools Aufgaben präzise und macht das Datenmanagement mühelos. Detaillierte Informationen zu Kutools für Excel... Kostenlose Testversion...

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Klicken Sie auf Kutools Plus > Importieren & Exportieren > Datei an Cursor einfügen, siehe Screenshot:

click Insert File at Cursor feature of kutools

specify options in the dialog box

2. Führen Sie im Dialogfeld Datei an Cursor einfügen die folgenden Aktionen aus:

(1.) Klicken Sie select buttonauf die Schaltfläche, um eine Zelle auszuwählen, in die Sie die importierten Daten einfügen möchten;

(2.) Klicken Sie browse buttonauf die Schaltfläche, um die Arbeitsmappe auszuwählen, aus der Sie Daten importieren möchten.

Hinweis: Nur Werte (keine Formeln): Wenn Sie diese Option aktivieren, werden nur die Werte importiert, nicht jedoch die Formeln.

Formatierung nicht übertragen: Wenn Sie diese Option aktivieren, werden die Daten ohne Formatierung in das Arbeitsblatt importiert.

3. Klicken Sie dann auf OK. Wenn es mehr als ein Arbeitsblatt in der Arbeitsmappe gibt, erscheint ein Dialogfeld Arbeitsblatt auswählen. Bitte geben Sie das Arbeitsblatt an, aus dem Sie die Daten importieren möchten, siehe Screenshot:

specify a worksheet that you want to import

4. Klicken Sie dann auf die Schaltfläche OK, und die Daten im ausgewählten Arbeitsblatt wurden in die aktuelle Arbeitsmappe importiert.

Jetzt Kutools für Excel herunterladen und kostenlos testen!

Beste Büroproduktivitätswerkzeuge

🤖 Kutools AI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Finden, Hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten oder Zellen kombinieren ohne Datenverlust   |   Runden ...
Erweiterte SVERWEIS: Mehrfachkriterien SVERWEIS    Mehrfachwert SVERWEIS  |   Mehrblatt-SVERWEIS   |   Fuzzy Match ....
Erweiterte Dropdown-Liste: Schnell Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Eine bestimmte Anzahl von Spalten hinzufügen  |  Spalten verschieben  |  Sichtbarkeitsstatus ausgeblendeter Spalten umschalten  |  Bereiche & Spalten vergleichen ...
Hervorgehobene Funktionen: Gitterfokus   |  Entwurfsansicht   |   Erweiterte Formelleiste    Arbeitsmappe & Arbeitsblatt-Manager   |  AutoText-Bibliothek (Auto Text)   |  Datumsauswahl   |  Daten zusammenführen   |  Zellen verschlüsseln/entschlüsseln    E-Mail senden nach Liste   |  Spezialfilter   |   Spezialfilter (Filtern fett/kursiv/durchgestrichen...) ...
Top15 Werkzeugsets12 Textwerkzeuge (Text hinzufügen, Bestimmte Zeichen löschen, ...)   |   50+ Diagramm typen (Gantt-Diagramm, ...)   |   40+ Praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...)   |   19 Einfügewerkzeuge (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Konvertierungswerkzeuge (In Wörter umwandeln, Währungsumrechnung, ...)   |   7 Konsolidieren & Aufteilen Werkzeuge (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!