Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus mehreren Dateien untereinander importieren

Forumthread: Daten aus mehreren Dateien untereinander importieren

Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:47:49
Lenchen90
Hallo zusammen!

Ich habe 7 Dateien, die befinden sich alle in Verschiedenen Ordnern auf SharePoint. Ich muss die Daten aus einem bestimmten Tabellenblatt aus jeder der Import-Dateien ins Tabellenblatt in meiner Masterdatei untereinander zusammenführen.. ich würde natürlich am liebsten eine Schleife einbauen, wo die Dateinamen und Pfade aus einer Liste in Masterdatei abgefragt werden.
Die Daten in den Import-Dateien haben viele leere Zeilen unten nach den Datensätzen, da die Formeln drin sind und die Zeilen noch nicht ausgefüllt wurden. wenn ich also die Daten aus allen Import Dateien untereinander kopiere, habe ich dazwischen 6 mal Blöcke mit leeren Zeilen. Da habe ich noch keine Lösung.

Bis jetzt habe ich einen seeeeeeeeehr abgespeckten Code: und hier werden alle Importe in die einzelnen Tabellenblättern in meiner Master Datei importiert. Dann führe ich die manuell zusammen.

Das problem ist dass nicht mal dieser Code funktioniert: das makro kopiert meine Import ins falsche Tabellenblatt.

Kann mir bitte jemand helfen?? Ich bin Anfänger und komme alleine nicht klar...

Und noch eine Sache: wie antworte ich auf Nachrichten zu meinem Thread?? Das ist mein zweiter Post und ich habe bis jetzt diese Funktion nicht gefunden...

Vielen Dank
LG Lena

Application.DisplayAlerts = False

Workbooks.Open Filename:="G:\Verkauf\Pricing\Elena\Potentiale\Alle Teams\LFC_Nord.xlsb", ReadOnly:=True
Workbooks("LFC_Nord.xlsb").Sheets("Maßnahmenplan").Range("A1: Z5000").Copy
Workbooks("test_makro.xlsm").Sheets("LFC_Nord").Cells(1, 1).PasteSpecial xlPasteValues --> aus irgendeinem Grund werden die Daten dann ins Blatt "Steuerung" geschoben..
Workbooks("LFC_Nord.xlsb").Close
Workbooks("test_makro.xlsm").Sheets("Steuerung").Activate
Application.CutCopyMode = False

Workbooks.Open Filename:="G:\Verkauf\Pricing\Elena\Potentiale\Alle Teams\LFC_Süd.xlsb", ReadOnly:=True
Workbooks("LFC_Süd.xlsb").Sheets("Maßnahmenplan").Range("A1: Z5000").Copy
Workbooks("test_makro.xlsm").Sheets("LFC_Süd").Cells(1, 1).PasteSpecial xlPasteValues
Workbooks("LFC_Süd.xlsb").Close
Workbooks("test_makro.xlsm").Sheets("Steuerung").Activate
Application.CutCopyMode = False
Application.DisplayAlerts = True
Anzeige

30
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
25.04.2024 10:33:41
JoWE
Hallo,
eine Idee wäre, die Dateinamen mit Pfad untereinander in eine Spalte einer eigenen Tabelle Deiner Master-Arbeitsmappe zu schreiben und dazu in der Nachbarzelle jeder Datei zusätzlich den Tabellennamen incl. Bereich der zu importierenden Daten sowie in der nächsten Nachbarzelle den Namen der Zieltabelle aufzuführen.
Damit kannst Du dann eine Schleife erstellen, die nacheinder alle aufgeführten Dateien öffnet, die Daten kopiert und in die entsprechend benannte Zieltabelle der Master-Arbeitsmappe einfügt.

Gruß
Jochen
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
25.04.2024 17:54:27
Yal
Hallo zusammen,

ganz andere Vorschlag: mit Power Query?
siehe: https://excelhero.de/power-query/power-query-ganz-einfach-erklaert
Zuerst Pkt 5) Daten aus gesamten Ordnern abfragen
damit baut man eine PQ-Funktion, die eine Dateiliste lädt,

dann die Quellliste aus https://www.herber.de/forum/messages/169030.xlsx in einer Tabelle umwandeln und in einer PQ-Abfrage anbinden, die dann als Quelle für die PQ-Funktion gilt.

Es würde so aussehen:
https://www.herber.de/bbs/user/169035.xlsx
(könnte leider nicht vollständig testen)

Aktualisierung mit Strg+Alt+F5 oder auf die Ergebnistabelle im Blatt "Konsolidierung" rechtsklicken und "aktualisieren" (oder Alt+F5)

Weniger Makro, weniger Stress.


VG
Yal
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
26.04.2024 11:01:06
Lenchen90
Danke für die Idee, das habe ich schon getestet..geht leider nicht wegen SharePoint.. und wir haben eine sehr langsame Internet Verbindung. Für mich ist es einfacher die Dateien runterzuladen und über Makro zu konsolidieren.

VG Lena
AW: Daten aus mehreren Dateien untereinander importieren
25.04.2024 10:56:52
Lenchen90
hallo Jochen,

die Idee ist toll..ich kriege es aber nicht hin. Nicht man mein Mini Makro funktioniert...

LG Elena
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
25.04.2024 11:20:26
JoWE
Hallo Elena,
erstelle eine Master-Arbeitsmappe mit den erforderlichen Tabellen zur Aufnahme der kopierten Daten sowie
einer Tabelle, welche nebeneinander in eigenen Spalten die Pfade, die Dateinamen und die Importbereiche enthält
und lade die Arbeitsmappe hier hoch.
Dann sehe ich (oder auch jemand anderer der hier aktiven Helfer) mal weiter.
Gruß
Jochen
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
25.04.2024 12:35:22
Oberschlumpf
Hi Lena,

zumindest ich würd mir noch wünschen, dass du uns ebenso Beispieldateien mit diesen Dateinamen per Upload zeigst...

LFC_Nord.xlsb inklusive dem Blatt Maßnahmenplan und natürlich Bsp-Datenzeilen innerhalb der Blätter
LFC_Nord.xlsb inklusive dem Blatt Maßnahmenplan und natürlich Bsp-Datenzeilen innerhalb der Blätter
TeamA.xlsb inklusive dem Blatt Maßnahmenplan Kat 1 und natürlich Bsp-Datenzeilen innerhalb der Blätter
TeamB.xlsb inklusive dem Blatt Maßnahmenplan Kat 2 und natürlich Bsp-Datenzeilen innerhalb der Blätter
TeamC.xlsb inklusive dem Blatt Maßnahmenplan Kat 3 und natürlich Bsp-Datenzeilen innerhalb der Blätter
TeamD.xlsb inklusive dem Blatt Maßnahmenplan Kat 4 und natürlich Bsp-Datenzeilen innerhalb der Blätter
TeamE.xlsb inklusive dem Blatt Maßnahmenplan Kat 5 und natürlich Bsp-Datenzeilen innerhalb der Blätter

...oder wenigstens 3 dieser Dateien.

Denn so wie jetzt kennen wir nur das Ziel, wo alles hin soll, aber keine einzige Quelle, wo die Datenzeilen herkommen.
(aber wer weiß, nur ich frag bisher danach; vllt wissen andere ja eine Lösung ohne die fehlenden Quell-Bsp-Dateien)

Ciao
Thorsten
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
25.04.2024 12:37:45
Oberschlumpf
Hi,

ach so, noch ne Frage, die ich eben vergessen hatte:

Nach deiner Angabe A6:bis letzte ausgefüllte Zeite in SpalteA möchtest du wirklich jeweils nur Daten aus Spalte A haben, oder?

Ciao
Thorsten
AW: Daten aus mehreren Dateien untereinander importieren
25.04.2024 12:51:31
JoWE
Hi Thorsten,
so schwierig ist das ja nicht zu lösen, oder?
Und da Du vermutlich schon die Lösung zu 80 % fertig hast, bin ich raus, ok?
Gruß
Jochen
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
25.04.2024 13:12:22
Oberschlumpf
Hi Jochen,

ich hab noch gar nicht angefangen; warte noch auf die fehlenden Bsp-Dateien mit Bsp-Daten.

zu deiner anderen Frage:
Ich würde, wie gewollt, jeweils nur die Daten aus Spalte A übertragen.

Da ich aber nicht sicher bin, ob sie mit "A6:bis letzte ausgefüllte Zeite in SpalteA" wirklich nur Daten aus Spalte A meint; sie könnte auch gemeint haben "A6:D (oder was auch immer) bis letzte ausgefüllte Zeite in SpalteA - deswegen frag ich da lieber noch mal nach - denn aufgrund von VBA bescheiden kann es sein, dass Lena eine "Erweiterung" auf mehr Spalten als nur A allein nicht hinbekommt...aber ja - für uns! ist das nich schwer zu lösen ;-)

Ciao
Thorsten
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
25.04.2024 15:17:39
Lenchen90
Hallo Thorsten,

danke für deine Rückmeldung. Ich lade hier nochmal die Ziel-Datei und eine Quelle-Datei. Alle Quellen Dateien sind absolut identisch aufgebaut bis auf den Tabellenblatt-Namen.
Es geht nicht um eine Spalte A, sondern um eine Range A5:Px (x-ist die letzte ausgefüllte Zeile in der Spalte A)

Quelle (alle 7 Quellen sind gleich aufgebaut)
https://www.herber.de/bbs/user/169030.xlsx

Zieldatei:
https://www.herber.de/bbs/user/169026.xlsm

Danke für deine Mühe und Zeit!!!!
Wenn du noch irgendwas von mir brauchst - meld dich gerne!

LG Lena
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
25.04.2024 16:47:41
Oberschlumpf
och Lena, echt???? :-/

mehr Mühe glaubst du, musst du dir nicht machen???
ok, kein problem, ich werde mit - einer Quelldatei, in der in jeder Zelle der selbe Wert steht! - etwas so programmieren, dass diese eine Quelldatei auch in deiner Masterdatei dahin kommt wo soll....aber...wenn in jeder Zelle das selbe Wort steht, werde ich nicht..und kann ich auch nicht...ne Kontrolle einbauen, dass jeder Zellinhalt aus Quelle - auch wirklich - im Ziel dahin kam wo es hin soll

kann n bisschen dauern, vllt werd ich erst morgen fertig
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
25.04.2024 17:37:11
JoWE
Hallo Elena
da Thorsten ja noch nicht so richtig angefangen hatte (sorry Thorsten)
versuche ich es mal mit dem folgenden Code: 
Option Explicit

Public Sub AlleNEUModul()

  

  Dim myMaster As Workbook

  Set myMaster = ThisWorkbook

  Dim mySource As Workbook

  Dim zielZeile As Long

  Dim d As Long

  

  Application.DisplayAlerts = False

  Application.ScreenUpdating = False

  

  With myMaster

  

    For d = 4 To .Sheets("Daten").Cells(4, 1).End(xlDown).Row

      zielZeile = .Sheets("Konsolidierung").Cells(Rows.Count, 1).End(xlUp).Row + 1

      Workbooks.Open .Sheets("Daten").Cells(d, 1), ReadOnly:=True

      Set mySource = ActiveWorkbook

      Sheets(1).Range("A5:P" & ActiveSheet.Cells(4, 1).End(xlDown).Row).Copy

        .Sheets("Konsolidierung").Paste _

          Destination:=myMaster.Sheets("Konsolidierung").Range("A" & zielZeile)

        .Sheets("Konsolidierung").Range("Q" & zielZeile) = Date

        .Sheets("Konsolidierung").Range("R" & zielZeile) = mySource.Name

      mySource.Close

    Next

    

  End With

  

  Application.DisplayAlerts = True

  Application.ScreenUpdating = True



End Sub

Gruß
Jochen
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
26.04.2024 12:20:35
Lenchen90
Hallo Jochen,

ich habe den Code getestet! Er funktioniert! Vielen lieben Dank!
Wie kann ich den Code so anpassen, dass er mir nur Werte aus jeder Datei kopiert?
Sheets("Maßnahmenplan").Range("A6:P" & ActiveSheet.Cells(4, 1).End(xlDown).Row).Copy
.Sheets("Konsolidierung").Paste _ hier irgendwas mit PasteValues???
Destination:=myMaster.Sheets("Konsolidierung").Range("A" & zielZeile)

VG Lena
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
26.04.2024 13:05:59
JoWE
Elena,

ich lade Dir mal die von mir angepasste Arbeitsmappe hoch, Basis war Deine Beispielmappe :
Die dort (Blatt Daten) aufgeführten Dateien hatte ich anhand der "LFC_Nord.xlsb" einfach mal in die weiteren aufgeführten Dateien kopiert.

https://www.herber.de/bbs/user/169056.xlsm

Darum also sieht das in der Konsolidierungstabelle für jede Datei immer gleich aus.
Das Makro holt aus den 7 Dateien jeweils den Bereich "A5:P" & die Letzte gefüllte Zeile, also z.B. 12 als Kopie ans Ende des Konsolidierungsblattes.

Der jeweils zu kopierende Bereich wir in dieser Zeile festgelegt:
Sheets(zielTable).Range("A5:P" & ActiveSheet.Cells(4, 1).End(xlDown).Row).Copy
Hier kannst Du Deinen Vorstellungen entsprechend Änderungen einbauen.
Die ausgeblendeten Makrozeilen mit "Sheets("Daten Test Jochen" hatte ich für meine Umgebung geändert.
Gruß
Jochen
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
26.04.2024 13:56:59
Lenchen90
Hallo Jochen,

vielen Dank, jetzt ist es noch besser und dynamischer geworden.
Allerdings habe ich noch keine Lösung wie ich die Daten aus den Quellen als Werte einfüge und nicht mit allem (Formate und Formel werden aktuell mitkopiert)

Wie soll ich richtig diese Zeile ergänzen, damit ich nur Werte kopiert bekommen?
.Sheets("Konsolidierung").Paste _

VG Lena
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
26.04.2024 14:15:55
JoWE
.PasteSpecial Paste:=xlValues
AW: Daten aus mehreren Dateien untereinander importieren
26.04.2024 15:58:49
JoWE
also so: 
Option Explicit



Public Sub AlleNEUModul()

  

  Dim myMaster As Workbook

  Set myMaster = ThisWorkbook

  Dim mySource As Workbook

  Dim zielZeile As Long

  Dim zielTable As String

  Dim d As Long

  

  Application.DisplayAlerts = False

  Application.ScreenUpdating = False

  

  With myMaster

  

    'For d = 4 To .Sheets("Daten Test Jochen").Cells(4, 1).End(xlDown).Row

    For d = 4 To .Sheets("Daten").Cells(4, 1).End(xlDown).Row

      zielZeile = .Sheets("Konsolidierung").Cells(Rows.Count, 1).End(xlUp).Row + 1

      'zielTable = .Sheets("Daten Test Jochen").Cells(d, 2).Text

      zielTable = .Sheets("Daten").Cells(d, 2).Text

      'Workbooks.Open .Sheets("Daten Test Jochen").Cells(d, 1), ReadOnly:=True

      Workbooks.Open .Sheets("Daten").Cells(d, 1), ReadOnly:=True

      Set mySource = ActiveWorkbook

      Sheets(zielTable).Range("A5:P" & ActiveSheet.Cells(4, 1).End(xlDown).Row).Copy

      .Sheets("Konsolidierung").Range("A" & zielZeile).PasteSpecial Paste:=xlValues

      .Sheets("Konsolidierung").Range("Q" & zielZeile) = Date

      .Sheets("Konsolidierung").Range("R" & zielZeile) = mySource.Name

      mySource.Close

    Next

  End With

  

  Application.DisplayAlerts = True

  Application.ScreenUpdating = True



End Sub


Viel Erfolg!!!
Gruß
Jochen
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
29.04.2024 11:15:57
Lenchen90
Danke dir! Habe diesen Beitrag irgendwie übersehen :)

Ich habe ein neues Problem... das Makro findet jetzt die zu kopierenden Dateien nicht...

Workbooks.Open .Sheets("Daten").Cells(d, 1), ReadOnly:=True diese zeile wird gelb markiert.. ich habe den Pfad geprüft, die Dateinamen passen auch, die Dateien kann ich manuell öffnen.. hast du eine Idee warum es plötzlich nicht mehr funktioniert?

LG Elena 

Public Sub Konsolidieren()

  

  Dim myMaster As Workbook

  Set myMaster = ThisWorkbook

  Dim mySource As Workbook

  Dim zielZeile As Long

  Dim zielTable As String

  Dim d As Long

  

  Application.DisplayAlerts = False

  Application.ScreenUpdating = False

  

  With myMaster

  

  

    For d = 4 To .Sheets("Daten").Cells(4, 1).End(xlDown).Row

      zielZeile = .Sheets("Konsolidierung").Cells(Rows.Count, 1).End(xlUp).Row + 1

      zielTable = .Sheets("Daten").Cells(d, 2).Text

      Workbooks.Open .Sheets("Daten").Cells(d, 1), ReadOnly:=True

      Set mySource = ActiveWorkbook

      Sheets(zielTable).Range("A5:P" & ActiveSheet.Cells(4, 3).End(xlDown).Row).Copy

      .Sheets("Konsolidierung").Range("A" & zielZeile).PasteSpecial Paste:=xlValues

      .Sheets("Konsolidierung").Range("Q" & zielZeile) = Date

      .Sheets("Konsolidierung").Range("R" & zielZeile) = mySource.Name

      mySource.Close

    Next

  End With

  

  Application.DisplayAlerts = True

  Application.ScreenUpdating = True



End Sub
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
29.04.2024 11:27:55
Lenchen90
so.. jetzt habe ich mich und alle hier verwirrt... sorry dafür! Alles funktioniert.
Habe aus Versehen eine leere Zeile eingefügt, daher wurden die Pfande nicht gefunden!

Funktioniert! Vielen Dank!

LG Lena
AW: Daten aus mehreren Dateien untereinander importieren
29.04.2024 08:58:56
Lenchen90
Hallo Jochen,

vielen lieben Dank!

VG Lena
AW: Daten aus mehreren Dateien untereinander importieren
29.04.2024 09:05:29
Lenchen90
Hallo Jochen,

habe ich diese Zeile an falscher Stelle eingefügt?
Die zwei Zeilen unten werden beim Einfügen von ".PasteSpecial Paste:=xlValues" rot markiert...

For d = 4 To .Sheets("Daten").Cells(4, 1).End(xlDown).Row
zielZeile = .Sheets("Konsolidierung").Cells(Rows.Count, 1).End(xlUp).Row + 1
zielTable = .Sheets("Daten").Cells(d, 2).Text
Workbooks.Open .Sheets("Daten").Cells(d, 1), ReadOnly:=True
Set mySource = ActiveWorkbook
Sheets(zielTable).Range("A5:P" & ActiveSheet.Cells(4, 3).End(xlDown).Row).Copy
.Sheets("Konsolidierung").PasteSpecial Paste:=xlValues _ --->der Teil wir rot markiert
Destination:=myMaster.Sheets("Konsolidierung").Range("A" & zielZeile)----> der Teil wir rot markiert
.Sheets("Konsolidierung").Range("Q" & zielZeile) = Date
.Sheets("Konsolidierung").Range("R" & zielZeile) = mySource.Name
mySource.Close
Next
End With

VG Lena
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
29.04.2024 10:18:58
JoWE
Hallo Elena,
entferne diesen Teil: 
Sheets(zielTable).Range("A5:P" & ActiveSheet.Cells(4, 3).End(xlDown).Row).Copy

.Sheets("Konsolidierung").PasteSpecial Paste:=xlValues _ --->der Teil wir rot markiert

Destination:=myMaster.Sheets("Konsolidierung").Range("A" & zielZeile)----> der Teil wir rot markiert


und füge das ein: 
Sheets(zielTable).Range("A5:P" & ActiveSheet.Cells(4, 1).End(xlDown).Row).Copy

.Sheets("Konsolidierung").Range("A" & zielZeile).PasteSpecial Paste:=xlValues


Gruß
Jochen
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
29.04.2024 11:47:55
Lenchen90
Hey Jochen, es funktioniert doch nicht ganz mit dem neuen Code..
Ich habe jetzt 2 Quelle-Dateien getestet.

Wenn ich den Code-Teil verwende, dann werden die Daten aus der ersten Quelle-Datei ins Tabellenblatt "Steuerung" als Werte reinkopiert (Blatt wo der Makro-Button ist) und die Daten aus der zweiten Quelle-Datei ins richtige Ziel-Tabellenblatt. Mit "Destination" vorher hat es aber funktioniert...

Hast du da eine Idee?
LG Lena 

Public Sub Values()

Dim myMaster As Workbook

  Set myMaster = ThisWorkbook

  Dim mySource As Workbook

  Dim zielZeile As Long

  Dim zielTable As String

  Dim d As Long

  

  Application.DisplayAlerts = False

  Application.ScreenUpdating = False

  

  With myMaster

  

    

    For d = 4 To .Sheets("Daten").Cells(4, 1).End(xlDown).Row

      zielZeile = .Sheets("Konsolidierung").Cells(Rows.Count, 1).End(xlUp).Row + 1

      zielTable = .Sheets("Daten").Cells(d, 2).Text

      Workbooks.Open .Sheets("Daten").Cells(d, 1), ReadOnly:=True

      Set mySource = ActiveWorkbook

      Sheets(zielTable).Range("A5:P" & ActiveSheet.Cells(4, 1).End(xlDown).Row).Copy

        .Sheets("Konsolidierung").Range("A" & zielZeile).PasteSpecial Paste:=xlValues

        .Sheets("Konsolidierung").Range("Q" & zielZeile) = Date

        .Sheets("Konsolidierung").Range("R" & zielZeile) = mySource.Name

      mySource.Close

    Next

  End With

  

  Application.DisplayAlerts = True

  Application.ScreenUpdating = True



End Sub

Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
29.04.2024 13:40:43
JoWE
Elena,

bei mir funktioniert dieser Code ohne Fehler: 
Option Explicit



Public Sub Values()



  Dim myMaster As Workbook

  Set myMaster = ThisWorkbook

  Dim mySource As Workbook

  Dim zielZeile As Long

  Dim zielTable As String

  Dim d As Long

  

  Application.DisplayAlerts = False

  Application.ScreenUpdating = False

  

  With myMaster

    For d = 4 To .Sheets("Daten").Cells(4, 1).End(xlDown).Row

      zielZeile = .Sheets("Konsolidierung").Cells(Rows.Count, 1).End(xlUp).Row + 1

      zielTable = .Sheets("Daten").Cells(d, 2).Value

      Workbooks.Open .Sheets("Daten").Cells(d, 1), ReadOnly:=True

      Set mySource = ActiveWorkbook

      Sheets(zielTable).Range("A5:P" & ActiveSheet.Cells(4, 1).End(xlDown).Row).Copy

        .Sheets("Konsolidierung").Range("A" & zielZeile).PasteSpecial Paste:=xlValues

        .Sheets("Konsolidierung").Range("Q" & zielZeile) = Date

        .Sheets("Konsolidierung").Range("R" & zielZeile) = mySource.Name

      mySource.Close

    Next

  End With

  

  Application.DisplayAlerts = True

  Application.ScreenUpdating = True



End Sub


so siehts im Blatt "Daten" aus:
Userbild

Jochen
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
07.05.2024 09:47:01
Lenchen90
Hallo Jochen.

ich habe hin und her getestet, irgendwas ist komisch... bei mir werden statt Werte auch die Formeln mitkopiert...:( ich weiß nicht mehr weiter...
Würdest du dir bitte meine Dateien anschauen?
Ich habe jetzt einmal meine Master-Datei mit dem Code angehängt (der code ist nocmal hier unten) und 2 Quelle-Dateien.

MasterDatei https://www.herber.de/bbs/user/169311.xlsm


Quelle1 https://www.herber.de/bbs/user/169314.xlsx

Quelle2 https://www.herber.de/bbs/user/169313.xlsx

Vielen Dank!!
VG Lena 

Option Explicit

Public Sub IMPORT()

Dim myMaster As Workbook

  Set myMaster = ThisWorkbook

  Dim mySource As Workbook

  Dim zielZeile As Long

  Dim zielTable As String

  Dim d As Long

  

  Application.DisplayAlerts = False

  Application.ScreenUpdating = False

  

  With myMaster

  

   

    For d = 4 To .Sheets("Daten").Cells(4, 2).End(xlDown).Row

      zielZeile = .Sheets("Konsolidierung").Cells(Rows.Count, 1).End(xlUp).Row + 1

      zielTable = .Sheets("Daten").Cells(d, 3).Text

      Workbooks.Open .Sheets("Daten").Cells(d, 2), ReadOnly:=True

      Set mySource = ActiveWorkbook

      Sheets(zielTable).Range("A6:Q3000").Copy

      .Sheets("Konsolidierung").Range("A" & zielZeile).PasteSpecial Paste:=xlValue

      Application.CutCopyMode = False

      mySource.Close

      myMaster.Sheets("Daten").Cells(d, 4).Value = Format(Now, "YYYY.MM.DD hh:mm ")

      myMaster.Sheets("Daten").Cells(d, 5) = Environ("username")

    Next

  End With

  

  Application.DisplayAlerts = True

  Application.ScreenUpdating = True



End Sub
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
07.05.2024 10:12:34
JoWE
Hallo Elena,

der Fehler ist in dieser Zeile deiens Codes: 
      Sheets(zielTable).Range("A6:Q3000").Copy

      .Sheets("Konsolidierung").Range("A" & zielZeile).PasteSpecial Paste:=xlValue

ein kleiner aber folgenschwerer Fehler: es heißt "Paste;=xlValues !!! mit dem 's' am Ende !!!
also so: 
      Sheets(zielTable).Range("A6:Q3000").Copy

      .Sheets("Konsolidierung").Range("A" & zielZeile).PasteSpecial Paste:=xlValues


Gruß
Jochen
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
25.04.2024 17:48:25
Eifeljoi 5
Hallo

Beispiel Datei mit Überschrift nur A gibt für mich keinen Sinn
Ich Denke dies ist ohne VBA mit PQ lösbar.
AW: Daten aus mehreren Dateien untereinander importieren
26.04.2024 10:59:20
Lenchen90
Mit PQ habe ich schon probiert, es funktioniert halbwegs.. wegen interner Probleme.. die Daten befinden sich auf ShatePoint.. weenn ich PQ aktualisiere dauert es ewig und dann bleibt hängen, weil die Internetverbindung bei meinem Arbeitsgeber nicht die beste ist... Deswegen werde ich die Dateien vom SharePoint manuell runterladen und über Makro konsolidieren...

LG Lena
Anzeige
AW: Daten aus mehreren Dateien untereinander importieren
25.04.2024 12:37:55
JoWE
ja, Thorsten hat Recht, bitte lies nochmal komplett was ich Dir geschrieben hatte.
;

Forumthreads zu verwandten Themen

Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
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
Anzeige
Ausgewählte Daten aus HTML in Excel importieren
Ferenz

Hallo VBA-Spezialisten,
ich möchte gezielt aus der Betfair-Webseite (Sportwetten, Speziell Fußball-Wetten IN-PLAY) Daten in Excel importieren. Mit der in Excel integrierten Funktion "Web-Abfrage" kann ich immer nur einen bestimmten Bereich importieren. Deshalb kommt für mich diese Funktion...
03.04.2009 16:00:35
Thread-ID: 1066723
11 Beiträge
Anzeige
Spalte A in andere Tabelle kopieren
Ben

Hallo,
ich habe folgendes Problem:
zwei Tabellen mit dem gleichen Aufbau, in Spalte A stehen immer Bezeichnungen und in den weiteren Spalten folgen Werte.
Ich versuche nun die Spalte A aller Tabellenblätter der ersten Tabelle (besitzt 41 Tabellenblätter) in die andere Tabelle zu k...
22.01.2010 20:13:26
Thread-ID: 1132034
8 Beiträge
Anzeige
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
Anzeige
Zeile in anderes Tabellenblatt kopieren
Carle

Hallo zusammen!
Ich würde gerne in einem Arbeitsblatt die Kopfzeile einer Tabelle in ein anderes Tabellenblatt derselben Arbeitsmappe kopieren, und zwar in der Weise, dass bei einer Änderung der Tabellenzeile (z. B. durch Einfügen einer neuen Spalte oder Änderung des Werts einer Zelle) sich...
01.02.2010 20:51:08
Thread-ID: 1134230
3 Beiträge
Bereich aus anderer Excel-Tabelle importieren
Jens

Hallo an alle!
Ich habe folgendes Problem: Ich möchte einen Bereich aus einer Excel-Tabelle in einer anderen Excel-Tabelle importieren. Über Daten -- Externe Daten importieren... bekomme ich nur einen kompletten Tabellensheet importiert. Gibt es eine Möglichkeit nur oben genannten Bereich z...
01.03.2010 11:06:41
Thread-ID: 1142312
9 Beiträge
werte in anderes tabellenblatt mit ; kopieren
Helmut

hallo liebe vba’ler,
noch eine letzte frage für heute:
ich habe ein excel-sheet. In diesem habe ich 5 spalten, in denen sich daten (Zahlen, Worte) befinden. Wie kann ich über ein vba-script diese daten in ein anderes tabellenblatt des sheets kopieren, und zwar so, dass die kopierten dat...
08.03.2010 17:51:04
Thread-ID: 1144386
7 Beiträge
Dateipfad, Daten aus anderer Tabelle
KLE

Hallo,
...ich habe eine Datei, welche Kundendaten anzeigen soll (Anschrift etc.). Diese Daten liegen in einer anderen Datei im Selben Pfad - nur in einem Unterordner.
Wie kann ich nun in meinem VBA-Code es am besten schreiben, wenn ich anstatt:
Worksheets("Kunden").Range("A2").Selec...
19.08.2010 15:09:19
Thread-ID: 1173124
4 Beiträge
Daten aus anderer Tabelle
Werner

Hallo
ich habe ein kleines Problem zu der ich leider keine Lösung finde.
Sollte jedoch ganz einfach sein.
Problem:
In Tabelle 1 steht in Spalte C folgende Formel:
=WENN(B112=0;"";SVERWEIS(B112;Obststamm!$1:$65536;2;FALSCH))
mit der folge, das wenn in B112 Spalte B...
12.09.2010 19:46:21
Thread-ID: 1177127
2 Beiträge
Daten in anderes Tabellenblatt kopieren
Werner

Hallo zusammen,
ich möchte Daten von Activen Tabellenblatt in die Tabelle1 kopieren. Ich habe es mit nen Makrorekorter propiert aber ohne Erfolg.
Es sollen im Act. Tabellenblatt die Bereiche:
A1:A30 in die Tabelle1 in die gleichen Zellen (A1:A30) kopiert werden.
C1:A30 in die Ta...
15.09.2010 20:26:28
Thread-ID: 1177919
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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