Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus anderen Datein importieren - Makro? VBA?

Forumthread: Daten aus anderen Datein importieren - Makro? VBA?

Daten aus anderen Datein importieren - Makro? VBA?
Matthias
Hallo Experten,
Ich habe folgendes Problem. Ich habe ein Excel Tabellenblatt. Hier soll eine Gesellschaft Ihre Daten in den Zeilen erfassen. Diese Datei heisst immer gleich und wird mir jeweils von der Gesellschaft zugeschickt. Ich habe jetzt nun 30 Dateien von 30 Gesellschaften und möchte mir eine Datei machen mit 30 Tabellenblättern. Statt jede datei aufzumachen und die Daten copy paste in meine Datei einfügen, würde ich es gerne per Konopfdruck automatisch machen, dass die Daten in das entsprechende Tabellenblatt von der entsprechenden Datei der Gesellschaft automatisch importiert werden.
Das geht glaube ich nur mit VBA und von VBA habe ich leider keine Ahnung.
Ich danke Euch im Voraus für eure Hilfe.
Gruss
Matthias
Anzeige
AW: Daten aus anderen Datein importieren - Makro? VBA?
29.06.2011 15:25:54
Rudi
Hallo,
Daten in den Blättern ab A1.
Alle Dateien in einem Ordner. Und nur die!
Blätter in der Sammelmappe heißen wie die Dateien ohne .xls. 
Sub prcImport()
Dim sFile As String, sName As String, wks As Worksheet
Const sPfad As String = "c:\test\"  'anpassen
Const strExt As String = ".xls"     'anpassen
Application.ScreenUpdating = False
sFile = Dir(sPfad & "*" & strExt, vbNormal)
Do While sFile  ""
sName = Left(sFile, Len(sFile) - Len(strExt))
Set wks = Workbooks.Open(sPfad & sFile).Sheets(1)
wks.Cells(1, 1).CurrentRegion.Offset(1).Copy _
ThisWorkbook.Sheets(sName).Cells(Rows.Count, 1).End(xlUp).Offset(1)
wks.Parent.Close False
sFile = Dir
Loop
End Sub

Gruß
Rudi
Anzeige
AW: Daten aus anderen Datein importieren - Makro? VBA?
29.06.2011 15:31:15
Matthias
Hi Rudi,
Vielen Dank erstmal. Nur noch bisschen für mein Verständnis. Dort wo "anpassen" steht muss ich den Ordner Pfad eingeben, oder? beim zweiten "anpassen" weiss ich aber nicht was ich ändern soll?
Gruss
Matthias
AW: Daten aus anderen Datein importieren - Makro? VBA?
29.06.2011 15:32:33
Rudi
Hallo,
1. richtig
2. kann ja sein, dass du .xlsx verarbeiten willst.
Gruß
Rudi
Anzeige
AW: Daten aus anderen Datein importieren - Makro? VBA?
29.06.2011 15:47:29
Matthias
Funktioniert irgendwie bei mir nicht. Bei uns hat dies bereits jemand gemacht mit folgendem Macro. Wenn ich jedoch das Makro anpasse funktioniert alles gut, jedoch bekomme ich nach dem Import eine Fehlermeldung Error 400. Was bedueted unterhalb das "si"?
Danke und Gruss
Matthias
Sub ImportTable()
Dim dlg As FileDialog
Dim si As Variant, Frage
Set dlg = Application.FileDialog(msoFileDialogOpen)
With dlg
.AllowMultiSelect = True
.InitialFileName = "*.xls"
.InitialView = msoFileDialogViewDetails
.Title = "ImportTable"
End With
If dlg.Show = True Then
Frage = MsgBox("Delete files after import?", vbYesNo)
For Each si In dlg.SelectedItems
Workbooks.Open Filename:=si
Worksheets("Overdues Reported").Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets. _
Count)
Workbooks(Dir(si)).Close savechanges:=False
If Frage = vbYes Then Kill si
Next
End If
End Sub

Anzeige
AW: Daten aus anderen Datein importieren - Makro? VBA?
29.06.2011 15:55:23
Matthias
Hallo Rudi,
Dein Makro läuft tip top und funktioniert.
Vielen Dank und Gruss
Matthias
;

Forumthreads zu verwandten Themen

Daten aus tmp-Datei importieren
Wolfgang

Hallo,
ich suche nach einer Möglichkeit, aus einer .tmp-Datei die wohl im Format *"?xml version="1.0" encoding="UTF-8"?*" geschrieben ist, Daten in Excel zu importieren. Über das übliche Verfahren "Daten importieren" bekomme ich das nicht hin. Hat evtl. jemand eine Idee, was ich da machen k...
09.09.2008 08:52:00
Thread-ID: 1008298
7 Beiträge
Daten aus einer anderen xls Datei importieren
Michi

Hallo,
Ich suche eine VBA lösung (am besten als Macro) für folgende Aufgabe:
Es soll ein ein Report erstellt werden der wie folgt ausschauen soll (Daten (PO nummer + einzelne Summe)n kommen aus einer externen Datei):
Woche1
Datainut PO1234 500 Euro
Lager PM PO23456 800 E...
08.11.2008 13:02:47
Thread-ID: 1022899
2 Beiträge
Daten aus anderer Datei auslesen und eintragen | Herbers Excel-Forum
Bernd
Hallo Freaks,
ich suche seit heute 12 h nach einer Lösung im Archiv, bin aber nicht fündig geworden bzw. nicht in der Lage, das makro anzupassen.
Problem: aus einem Verzeichnis eine Datei aussuchen und aus zwei exakt benannten Blättern die Daten eines bestimmten Bereiches einlesen. Dabei ha...
24.01.2010 19:45:10
Thread-ID: 1132528
4 Beiträge
Daten aus anderer Datei lesen
marell23

Hallo @all!
Vielleicht kann mir jemand einen Ansatz geben!
Ich habe hier ein Tabellenblatt in der in einer Spalte (z.B. D2 bis Dxxx) Artikelnummern stehen.
Nun wäre es nötig aus einer anderen Datei Infomationen zu holen. Dort ist auch die Artikelnummer
verzeichnet (leider mehrfa...
24.05.2011 17:43:34
Thread-ID: 1215795
2 Beiträge
Anzeige
Daten aus anderer Datei
Werner

Haqllo Excel-Freunde
Habe wieder einmal ein Problem bei dem ich trotz langer Suche noch keine Lösung gefunden Habe:
In der Datei "FF 2011 KW 38" steht auf Tabelle 1 in Zelle E1 die aktuelle KW(aktuell KW "38").
Diese Zelle wird weiterverarbeitetund weist in anderen Zellen das Datum...
21.09.2011 10:16:27
Thread-ID: 1230848
8 Beiträge
Datenübernahme aus anderer Datei (Formel)
Peter

hallo Forumgemeinde
folgendes Problem
Ich habe 2 Excel Dateien.
Ich will in Datei 1 einen Wert aus Datei 2 übernehmen der Wert von Datei 2 befindet sich immer in der Gleichen Zelle "B9".
Der Dateiname von Datei 2 setzt sich immer aus NAME_NUMMER zusammen (bsp: Horst_0815.xlsm).<...
13.11.2011 10:16:44
Thread-ID: 1237660
6 Beiträge
Daten aus anderer Datei
Werner

Hallo Excel-Freunde
Habe folgendes Problem:
In die Datei: "Kühlverluste KW 47 - 50" möchte ich in Zelle H5 Werte aus der Datei "Kühlverluste KW 47" übernehmem.
Datei "Kühlverluste KW 47 - 50" prüft in Zelle E5(im Beispiel 2600) den Eintrag und sucht dazu in der Datei "Kühlverluste...
27.11.2011 11:57:17
Thread-ID: 1239558
8 Beiträge
Tabelle mit Daten aus anderer Excel-Datei ergänzen
Duinne

Hallo Leute,
ich habe ein größeres Umsetzungsproblem:
Ich habe eine Datei mit einer Tabelle, in denen eine Menge Datensätze enthalten sind. Diese Datensätze sind Baugruppen, die jeweils durch eine Leerzeile getrennt sind. Ganz oben eines "Blocks" steht immer der Name und die Nummer (u...
12.10.2012 13:43:45
Thread-ID: 1281774
17 Beiträge
Daten aus Datei importieren
Frank

Hallo zusammen,
folgendes Szenario. Ich habe eine Excel-Datei die in einem bestimmten Ordner liegt. Nun möchte ich in einer bestehenden Excel Datei per Knopfdruck den Ordner bzw. die Datei auswählen und bspw. aus Tabellenblatt 1 den Bereich A1:F25 in die bestehedene Datei einfügen. Leider s...
01.12.2012 12:38:38
Thread-ID: 1288816
2 Beiträge
Anzeige
Daten aus Datei importieren
Malte

Hallo,
ich beschäftige mich wenig mit excel und vba um ehrlich zu sein, habe aber bisher immer das erreicht, was ich wollte.
Jetzt allerdings komme ich wieder nicht weiter. Ich habe .txt Dateien aus denen ich Zeilen in _ meine Tabelle importieren möchte. Angefangen habe ich mit folgend...
19.07.2013 17:57:50
Thread-ID: 1323295
2 Beiträge
Daten aus anderer Datei erfassen und berechnen
Marcel

Hallo,
ich habe folgendes Problem:
Mit Labview lasse ich Messwerte erfassen, die automatisch in einer Excel-Tabelle sortiert abgelegt werden. Dies sieht dann so aus:
Wert1 Wert 2
2 3
6 7
3 9
5 6 und so weiter.
Ich habe also mehrere Spalten mit jew...
04.12.2013 19:31:12
Thread-ID: 1341266
5 Beiträge
Daten aus anderer Datei in UF ziehen
Spenski

aloha
Die Datei https://www.herber.de/bbs/user/91028.xlsm wurde aus Datenschutzgründen gelöscht <--- abgespeckte version
ich habe einer userform mit der ich daten in eine andere mappe speicher (immer die nächste freie zeile)
in spalte A steht der kundenname
jetzt möchte ich d...
06.06.2014 16:14:21
Thread-ID: 1365010
21 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Daten aus anderen Excel-Dateien importieren mit VBA

Schritt-für-Schritt-Anleitung

Um Daten aus anderen Excel-Dateien zu importieren, kannst du ein VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  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. Füge den folgenden Code ein:

    Sub prcImport()
    Dim sFile As String, sName As String, wks As Worksheet
    Const sPfad As String = "c:\test\"  ' Hier den Ordnerpfad anpassen
    Const strExt As String = ".xls"     ' Hier die Dateiendung anpassen
    Application.ScreenUpdating = False
    sFile = Dir(sPfad & "*" & strExt, vbNormal)

    Do While sFile <> ""
        sName = Left(sFile, Len(sFile) - Len(strExt))
        Set wks = Workbooks.Open(sPfad & sFile).Sheets(1)
        wks.Cells(1, 1).CurrentRegion.Offset(1).Copy _
        ThisWorkbook.Sheets(sName).Cells(Rows.Count, 1).End(xlUp).Offset(1)
        wks.Parent.Close False
        sFile = Dir
    Loop
End Sub

  4. Passe die Konstanten sPfad und strExt an, um den Pfad zu deinem Ordner und die Dateiendung festzulegen (z.B. .xlsx).

  5. Schließe den VBA-Editor und gehe zurück zu deinem Excel-Dokument.

  6. Drücke ALT + F8, wähle prcImport aus und klicke auf „Ausführen“.

Häufige Fehler und Lösungen

1. Fehler 400

  • Dieser Fehler tritt häufig auf, wenn ein Problem mit dem Makro oder den Dateipfaden vorliegt. Überprüfe, ob der Pfad korrekt ist und ob die Dateien geöffnet werden können.

2. Falsche Dateiendung

  • Stelle sicher, dass die Dateiendung in der Konstante strExt mit der tatsächlichen Endung deiner Excel-Dateien übereinstimmt.

3. Blätter nicht gefunden

  • Wenn das Makro nicht auf die richtigen Blätter zugreifen kann, überprüfe die Namen der Blätter in den importierten Dateien.

Alternative Methoden

Es gibt auch andere Möglichkeiten, Daten in Excel zu importieren:

  • Power Query: Mit Power Query kannst du sehr einfach Daten aus verschiedenen Quellen importieren, einschließlich anderer Excel-Dateien und Webseiten.
  • Manuelles Kopieren: Wenn du nur gelegentlich Daten importieren musst, kannst du die Daten einfach manuell kopieren und einfügen.

Praktische Beispiele

Hier sind zwei Beispiele, wie du mit VBA Daten aus anderen Excel-Dateien importieren kannst:

  1. Importieren von Wetterdaten:

    • Verwende das Makro, um Wetterdaten aus mehreren Excel-Dateien automatisch zu importieren und in ein Master-Blatt zu konsolidieren.

  2. Importieren von Verkaufsdaten:

    • Erstelle ein ähnliches Makro, um Verkaufsdaten von verschiedenen Vertriebsmitarbeitern in ein zentrales Excel-Dokument zu importieren.

Tipps für Profis

  • Makros optimieren: Achte darauf, die Bildschirmaktualisierung während des Imports auszuschalten, um die Geschwindigkeit des Makros zu erhöhen.
  • Fehlerbehandlung einbauen: Füge Code zur Fehlerbehandlung hinzu, um unerwartete Probleme während des Imports zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich ein Makro in Excel importieren? Du kannst ein Makro in Excel importieren, indem du den VBA-Editor öffnest und den Code in ein neues Modul einfügst.

2. Wie kann ich Daten von einer Website in Excel importieren? Du kannst VBA verwenden, um Daten von einer Website in Excel zu importieren, indem du HTTP-Anfragen sendest und die Daten analysierst.

3. Was bedeutet der Fehler "VBA error 400"? Der Fehler "VBA error 400" deutet in der Regel auf ein Problem mit dem Code oder den verwendeten Objekten hin. Überprüfe den Code sorgfältig auf Syntaxfehler und ungültige Referenzen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige