Office: Inhalte mehrerer Excel-Dateien in eine andere Datei kopieren

Erst einmal möchte ich euch zu diesem wirklich tollen Forum beglückwünschen! Schon als Gast konnte mir das eine oder andere Male „Dank Euch„ geholfen werden.

Aber nun habe ich ein Problem bei dem ich nicht weiterkomme.
Aus beruflichen Gründen muss ich im Monat circa 100 so genannte Aufmaße schreiben. Jedes Aufmaß für sich ist eine eigene Excel Datei (Arbeitsblatt), und besteht jeweils aus zwei Tabellen. Diese Dateien sind immer gleich aufgebaut, nur die Werte in den einzelnen Zellen variieren. Die Aufmaße die ich innerhalb eines Monats schreibe werden von mir in einen Dateiordner kopiert.

In jedem Aufmaß steht in der Zelle" B10 " ein errechneter Zahlenwert, den ich in ein anderes Excel Arbeitsblatt übertragen muss.
Dies geschieht zurzeit in mühevoller und zeitaufwändiger Art in dem ich jede Datei von Hand öffne, den Inhalt der Zelle" B10 "markiere und in die andere Arbeitsmappe einfüge!

Meine Frage ist nun! Ist es möglich dass dieser Vorgang weitestgehend automatisch abläuft ?

Wie kann ich es bewerkstelligen, den Inhalt bzw. Wert dieser Zelle von allen Dateien in dem Ordner ohne großen Aufwand in eine andere Excel Datei zu übertragen, dort untereinander aufzulisten um dann die Gesamtsumme zu errechnen?

Für einen guten Tipp wäre ich wirklich sehr dankbar![/img]

 

Hallo!

Unter der Voraussetzung, dass sich deine Zieldatei NICHT in dem besagten Ordner befindet:
Rechtsklicke den Tabellenreiter des Blatts in deiner Zieldatei, in dem die Auflistung erscheinen soll, und wähle "Code anzeigen".
Kopiere diesen Code ins Codefenster rechts und passe den Pfad an, in dem sich die Quelldateien befinden:

Code:

Sub Liste()
Dim Datei As String
Dim x As Integer
Const Pfad = "E:\Test\Test\" '<-- Hier das Verzeichnis anpassen
Datei = Dir(Pfad & "*.xl*")
Do While Datei <> ""
x = x + 1
Workbooks.Open Pfad & Datei, UpdateLinks:=0
Cells(x, 1) = Datei
Cells(x, 2) = Workbooks(Datei).Sheets(1).Range("B10")
Workbooks(Datei).Close SaveChanges:=False
Datei = Dir
Loop
End Sub

Dieser Code listet ab A1 abwärts die Dateinamen ("Beispiel.xls") auf und ab B1 abwärts die Zellinhalte aus B10 jeweils des 1. Blatts aller (Excel-)Dateien des angegebenen Ordners auf.

Ach so: Zurück in der Ziel-Tabelle, rufst du das Makro "Liste" mit Alt+F8 auf.

 

Danke Schatzi !!!!!!

Nacht's um ein Uhr löst du meine Probleme, was soll man da noch hinzufügen?

Also; das Makro funktioniert !!
Noch einmal vielen Dank

frank2