Hallo,
kann mir jemand dabei weiterhelfen:
hab ca. 100 Excel-files, die alle eine gleichartig aufgebaute Tabelle beinhalten.
Nun will ich in einem Summen-file die Summe aus allen Tabellen ermitteln, sodass sich in Zelle "A1" die Summe aller Werte aus allen files bzw. Zellen "A1" befindet, in "A2" die Summe aus allen "A2"s usw.
Dazu hab ich mir mit Müh und Not das folgende Makro geschrieben. - Kann mir aber irgendwer weiterhelfen, wie ich das ganze weiter vereinfachen kann, und zwar in dem Sinn, dass ich nicht jede Zelle einzeln ansprechen muss, sondern das Makro von selbst auf die nächste Zelle springt, dafür wieder die Summe aus allen files bildet, in mein Summen-file einträgt und zur nächsten Zelle weiterspringt? Leider und ärgerlicherweise schaff ich das selber nicht.
so, hier das, was ich bis jetzt hab
Sub aus_Datei()
Dim fs As Variant, i As Integer, summe As Double, summe2 As Double, summe3 As Double
Dim Zelle As Variant
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Test" & "\Test_01"
.SearchSubFolders = True 'Unterordner auch durchsuchen
.Filename = "*.xls" 'alle Excel-Dateien
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
summe = summe + ActiveWorkbook.Sheets(1).Cells(1, 1).Value
summe2 = summe2 + ActiveWorkbook.Sheets(1).Cells(2, 1).Value
summe3 = summe3 + ActiveWorkbook.Sheets(1).Cells(3, 1).Value
ActiveWorkbook.Close savechanges:=False
Next i
End With
Cells(1, 1).Value = summe
Cells(2, 1).Value = summe2
Cells(3, 1).Value = summe3
Set fs = Nothing
End Sub
Vielen Dank schon mal - meine Bewunderung ist jedem, der mir helfen kann, sicher...
|