Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Werte aus mehreren Dateien auslesen und addieren!

Werte aus mehreren Dateien auslesen und addieren!
26.10.2017 10:11:04
Sven
Hallo liebe Gemeinde,
ich sitze wieder einmal vor einem Problem.
ich schildere zum Anfang einmal was die Grundlage ist und was geschehen soll.
1. Es gibt mehrere Dateien mit unterschiedlichen Namen (alle .xls), jedoch ist der Aufbau immer der selbige und der Sheet-Name ebenfalls.
2. Die Dateien liegen alle in einem Ordner!
3. Es gibt eine Masterdatei (gleicher Aufbau wie die anderen!)
4. In die Masterdatei sollen nun die Werte innerhalb der Range E15:M115 aus den anderen Dateien in die Masterdatei gechrieben werden, jedoch addiert als eine Summe an die selbe Stelle! -- Das wäre die Hauptfunktion!
5. Die Werte sind alles Zahlen.
Ich hoffe Ihr könnt mir weiterhelfen.
Bei Fragen fragt einfach. ;-)
Gruß Sven

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: dafür würde sich auch PowerQuery anbieten ...
26.10.2017 11:18:58
...
Hallo Sven,
... PowerQuery kannst Du Dir von MS kostenfrei downladen und installieren. Zur Anwendung dessen solltest mal etwas googlen.
Gruß Werner
.. , - ...
AW: dafür würde sich auch PowerQuery anbieten ...
26.10.2017 12:34:59
Sven
Hallo Werner,
vielen Dank erst einmal für deine Antwort. Davon habe ich ja noch gar nichts gehört... Es wäre jedoch trotzdem super nett, wenn du/ihr mir einen Ansatz geben könntet in Richtung VBA. Da das Projekt ziemlich zeitnah funktionieren soll und ich das Gefühl habe mit PowerQuery, muss ich mich eine weile beschäftigen.
Gruß Sven
AW: VBA-Lösung gesucht, ...
26.10.2017 13:17:05
...
Hallo Sven,
... aus VBA halte ich mich heraus.
Ich hab den thread wieder als offen gekennzeichnet.
Gruß Werner
.. , - ...
Anzeige
Per VBA würde das...
26.10.2017 13:19:46
Case
Hallo Sven, :-)
... so funktionieren: ;-)
Dateien - Range - Summe...
Entpacke die ZIP-Datei - starte die Haupddatei mit dem Makro - Schaltfläche klicken - Fertig! ;-)
Als Ansatz sollte das genügen. ;-)
Servus
Case

AW: Werte aus mehreren Dateien auslesen und addieren!
26.10.2017 13:43:02
Daniel
Hi
probier mal diesen Code.
Pfad und Tabellenblattnamen müssen ggf angepasst werden.
geöffnet werden alle xls-Dateien im Verzeichnis geöffnet.
Sub Addieren()
Dim Pfad As String
Dim Datei As String
Dim wb As Workbook
Dim rngZiel As Range
Dim Bereich As String
Bereich = "E15:M115"
Set rngZiel = ThisWorkbook.Sheets("Gesamt").Range(Bereich)
rngZiel.ClearContents
Pfad = ThisWorkbook.Path & "\" 'Pfad, in dem die Dateien liegen
Datei = Dir(Pfad & "*.xls")
Do Until Datei = ""
If Datei  ThisWorkbook.Name Then
Set wb = Workbooks.Open(Pfad & Datei)
wb.Sheets("Tabelle1").Range(Bereich).Copy
rngZiel.PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd
Application.CutCopyMode = False
wb.Close False
End If
Datei = Dir
Loop
End Sub

Gruß Daniel
Anzeige

171 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige