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
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien zusammenfügen

Forumthread: Dateien zusammenfügen

Dateien zusammenfügen
04.07.2004 08:47:18
Steve
Hallo!
Ich habe insgesamt 13 Verzeichnisse mit darin je eine Datei z.B. (c:\Gruppe1\Gruppe1.xls und c:\Gruppe2\Gruppe2.xls usw. ..) ist es möglich alle Dateien über ein Makro zusammenzufügen in eine „Gesamtdatei“ ? Die ersten 5 Zeilen jeder Datei dürfen nicht importiert werden (sind Kopfdaten)
Ist so etwas möglich?
Gruß
Steve
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien zusammenfügen
04.07.2004 10:47:29
Gert
Hallo Steve,
warum führst Du nicht alle 13 Blätter in einer Mappe zusammen, plus 1Blatt
für die Gesamtübersicht.
Mit Verknüpfungen sollte das möglich sein.
mfg
Gert
AW: Dateien zusammenfügen
04.07.2004 11:16:49
Steve
Hallo Gert,
ich dachte getrennte Dateien wären besser da die einzelnen Dateien ziemlich groß sind, d.h. eine Datei ca. 2 bis maximal 10 MB, = gesamt 30 bis 50 MB und wenn da eine abstürzen sollte, wäre nur der einer davon betroffen!!
Gruß
Steve
Anzeige
AW: Dateien zusammenfügen
Reinhard
Hi Steve,
probiers mal so (ungetestet)

Sub zusamm()
With ActiveSheet
For a = 1 To 13
Set Quelle = Workbooks("c:\Gruppe" & a & "\Gruppe" & a & ".xls").Open
zQ = Quelle.Range("a65536").End(xlUp).Row 'letzte Zeile der Spalte A in Quelle
sQ = Quelle.Range("IV1").End(xlToLeft).column 'letzte Spalte der Zeile 1 in Quelle
Quelle.Range(Cells(6, 1), Cells(zQ, sQ)).Copy _
Destination:=.Range("A" & .Range("a65536").End(xlUp).Row+1)
Workbooks("c:\Gruppe" & a & "\Gruppe" & a & ".xls").Close
Next a
End With
End Sub

Gruß
Reinhard
Anzeige
AW: Dateien zusammenfügen
04.07.2004 20:03:16
Steve
Hallo Reinhard,
erstens vielen Dank für das Makro,
ich bekomme die Meldung „Laufzeitfehler 9, Index außerhalb des gültigen Bereichs“ und nun wird mein Pfad Gelb eingefärbt!!
Set Quelle = Workbooks("C:\Dokumente und Einstellungen\STEVE\Eigene Dateien\TEST\Gruppe" & a & "\Gruppe" & a & ".xls").Open
Was mache ich da Falsch?
Gruß
Steve
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