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

Forumthread: Daten aus x Dateien einlesen

Daten aus x Dateien einlesen
06.09.2018 15:15:42
Simone
Hallo Zusammen,
ich habe ein großes Problem. Ich habe eine bestehende Excel Datei. Hier soll per VBA folgendes getan werden.
In der Datei "Abgleich" Dialogfenster: Datei öffnen, so, damit man sich das Laufwerk wo die Dateien abgelegt sind selbst wählen kann.
Dann sucht man die entsprechenden Dateien, sind immer ca. 45 Stück.
Aus diesen Dateien soll er jeweils aus dem Reiter "2018" (ist immer gleich) ab Zelle A2 bis R409 alles kopieren und in die die Datei "Ableich" im Reiter TNW untereinander einfügen.
Ist das überhaupt lösbar über ein VBA? Ich probiere mich schon lage daran aber ich schaff es leider so gar nicht.
Würde mich sehr freuen wenn mir jemand helfen könnte
Liebe Grüße, Simone
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: der Ansatz
06.09.2018 15:41:45
Fennek
Hallo Simone,
ungeprüft, also so ähnlich wird es gehen:

Sub Simone()
Pfad = "c:\temp\" 'Ort der Quell-Dateien
f = dir (Pfad & ".xlsx")
do while len(f)
with workbooks.Open(Pfad & f)
.sheets("2018").Range("A2:R409").copy _
thisworkbook.sheets("TNW").cells(rows.count, 1).end(xlup).offset(1)
end with
f = dir
loop
end sub
mfg
(der Code kommt in das Ziel-Workbook)
Anzeige
AW: der Ansatz
06.09.2018 16:12:52
Simone
Lieben Dank für die schnelle Antwort.
Leider lässt sich dsa VBA gar nicht starten, hmmmm was könnte falsch sein?
VG, Simone
AW: etwas genauer bitte
06.09.2018 16:27:55
Fennek
Hallo,
ist es ein Kompellierungsfehler?
Da ich kein Test-Scenario aufbauen möchte, wird es immer ungetestet bleiben. Debuugen müßtest du es.
Ein * fehlte:

Sub Simone()
Pfad = "c:\temp\" 'Ort der Quell-Dateien >>>>>>>>>>
f = dir (Pfad & "*.xlsx")
do while len(f)
with workbooks.Open(Pfad & f)
.sheets("2018").Range("A2:R409").copy _
thisworkbook.sheets("TNW").cells(rows.count, 1).end(xlup).offset(1)
end with
f = dir
loop
end sub
mfg
(wenn der Ordner der Quell-Dateien variabel sein sollte, müßte "Pfad" durch einen fileDialog(filepicker) ersetzt werden.)
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
Anzeige

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