Summe aus mehreren Dateien

Philip · 2019-09-02T12:51:13+00:00

Hallo liebe Community, ich habe einen Ordner mit vielen Excel Dateien. Diese haben unterschiedliche (nicht logische) Dateinamen, aber immer den gleichen Aufbau. Hier steht überall in Zelle "N30" eine Summe. Ich suche etwas, womit ich die Werte aus jeder Datei in "N30" addiert ausgeben kann. Ist so etwas möglich? Mit freundlichen Grüßen Philip

Hallo Philip,
falls du eine VBA Loesung moechtest. Dieser Code oeffnet alle xlsx Dateien in einem Folder und summiert den Inhalt aus N30 in die Zelle A1 im Workbook mit dem Code. Den Code in ein allgemeines Modul kopieren, den Pfad und die Tabellennamen sowie die Zielzelle anpassen. Code laufen lassen:


Sub N30()
Dim Pfad As String, Dateiname As String
Dim Twb As Workbook
Set Twb = ThisWorkbook
Pfad = "C:\DeinPfad\"      'Backslash am Ende wichtig
Dateiname = Dir(Pfad & "*.xlsx")    'wenn es .xlsx-Dateien sind
Application.ScreenUpdating = False
Do While Dateiname  ""
Workbooks.Open FileName:=Pfad & Dateiname
With Workbooks(Dateiname)
Twb.Sheets("Tabelle1").Range("A1") = CDbl(Twb.Sheets("Tabelle1").Range("A1")) + . _
Sheets("Tabelle1").Range("N30")  'hier nur die Tabellennamen und Zielzelle anpassen
.Close savechanges:=False
End With
Dateiname = Dir()
Loop
End Sub

Gruss Torsten

Dann koennte man das so abfangen. Der Code sucht nach dem Blattnamen. Wenn das nicht vorhanden ist, gehts einfach weiter zur naechsten Datei.
Das Oeffnen der Dateien muss leider sein, aber ich hab das hier geloest, indem ich diese in einer extra Excel Instanz im Hintergrund oeffne. Dadurch ist das nicht mehr sichtbar und geht, hoffe ich etwas schneller.


Sub N30()
Dim Pfad As String, Dateiname As String, Quelle As String, Ziel As String
Dim Twb As Workbook
Dim ws As Worksheet
Set Twb = ThisWorkbook
Quelle = "Quelltabellenname"     'hier den Namen der gesuchten Tabelle eingeben
Ziel = "Zieltabellenname"   'hier den Namen der Tabelle, wohin kopiert wird
Pfad = "C:\DeinPfad\"      'Backslash am Ende wichtig
Dateiname = Dir(Pfad & "*.xlsx")    'wenn es .xlsx-Dateien sind, sonst Endung anpassen
Application.ScreenUpdating = False
Do While Dateiname  ""
With CreateObject("Excel.Application")
With .Workbooks.Open(Pfad & Dateiname)
For Each ws In .Sheets
If ws.Name = Quelle Then
Twb.Sheets(Ziel).Range("A1") = CDbl(Twb.Sheets(Ziel).Range("A1")) + . _
Sheets(Quelle).Range("N30")
End If
Next ws
Dateiname = Dir()
End With
.Quit
End With
Loop
End Sub

Probier mal und lass mich wissen, was du denkst.
Gruss Torsten

Forumthread: Summe aus mehreren Dateien

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Summe aus mehreren Dateien

Forumthread: Summe aus mehreren Dateien

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread