Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

mehrere Dateien in eine Tabelle zusammenführen

Forumthread: mehrere Dateien in eine Tabelle zusammenführen

mehrere Dateien in eine Tabelle zusammenführen
13.08.2003 16:17:26
Martin Müller
Hallo,
ich habe mehrere Excel Dateien ( ca 200 ) in denen Excel nicht als Tabellenkalkulation sondern als Formular verwendet wird. Das bedeutet, daß bestimmte Daten immer in der gleichen Zelle stehen.
Gibt es eine Möglichkeit aus allen Dateien diese Daten auszulesen und dann in einer eigenen Excel Datei in Form einer Tabelle darzustellen?

Vielen Dank

Martin
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Dateien in eine Tabelle zusammenführen
13.08.2003 18:15:28
Ramses
Hallo,

das habe ich vor längerer Zeit mal gemacht.
Vielleicht kannst du es anpassen.


Sub Dateien_in_eine_Tabelle_zusammenfuehren()
'(C) Ramses
Dim Datei As String
Dim Arbeitsmappe As String
Dim Pfad As String
Pfad = "d:\workarea\"
Datei = Dir(Pfad & "*.xls")
Application.ScreenUpdating = False
'Active Mappe
Arbeitsmappe = ActiveWorkbook.Name
Do While Datei <> ""
    'Öffnet eine Datei
    Workbooks.Open Datei
    'Kopiert von den Zeilen 6 bis zum Ende
    'in die aktive Mappe und fügt sie jeweils unten an
    Rows("6:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row).Copy _
        Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
    'Schliesst die geöffnete Datei
    ActiveWorkbook.Close False
    'Prüft für die nächste Datei
    Datei = Dir()
Loop
Application.ScreenUpdating = True
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16



Gruss Rainer


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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