Ich hab mir vor einiger Zeit mal ein Modul zusammengebaut das mir eine Zusammenfassung aus mehreren Tabellen im Dokument erstellt. Problem daran ist, die Basis der Dokumente wird immer mehr, sprich ich kopiere mich schon Tod bevor ich alles in eine Datei habe. Jetzt habe ich mir gedacht, es gibt bestimmt eine Möglichkeit die Daten nicht aus einzelnen Tabellenblättern zu bekommen sondern es direkt aus den Quelldateien auszulesen.
Momantan löse ich das Folgendermaßen:
Sub Tabelle_zusammenfassen()
Rows("4:" & Rows.Count).ClearContents
Dim i As Integer
Dim Zusammenfassung As Worksheet
Set Zusammenfassung = Worksheets("Zusammenfassung")
For i = 2 To Worksheets.Count
Set BereichZielTab = Range(Worksheets(i).Range("A4"), Worksheets(i).Cells.SpecialCells( _
xlCellTypeLastCell))
Set LetzteZeileZusammenfassung = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)(2)
BereichZielTab.Copy Destination:=LetzteZeileZusammenfassung
Next i
End Sub
Das funktioniert auch super, nur eben der Kopieraufwand der Basisdateien ist recht hoch. Als Basis dient ein SAP Report der auf Grund der Datenmenge je Quartal gezogen wird, ich habe also je Quartal seit Projektstart einen Report den ich auch jeden Monat neu ziehen muss um den Fortschritt auswerten zu können.
Der Ablageort der Dateien ist auf meinem Rechner unter :
C:\Users\steff\Documents\SAP Export\Zusammenfassungen\ZSD092
und die Dateien heißen immer: ZSD092_Q118, ZSD092_Q218, ....., ZSD092_Q119, ZSD092_Q219 und so weiter.
Alle Hilfen die ich gefunden habe beziehen sich auf wechselnde Namen, das ist ja aber bei mir nicht der Fall da ich die Dateien jeden Monat überschreibe weil ich nur die Auswertung speichern möchte. Und jedes mal wenn ich Versuche den Code zu ändern geht nichts mehr...
Vielleicht ist ja hier jemand der mir dabei helfen kann :-)