Ich würde gerne die Inhalte der A3:C3-Zellen aller Arbeitsblätter aller 25 Dateien aus einem bestimmten Verzeichnis in einer eigenen Tabelle sammeln.
Jetzt mach ich es so. Die Sammeltabelle ist offen, und die erste der 25 Dateilen auch. Ein Makro kopiert die gewünschten Zellen rüber. Dann schließe ich die Datei und öffne die zweite. Das Makro macht seine Kopierarbeit, usw.
Nun suche ich einen Weg, auch das Abarbeiten der Dateien zu automatisieren, sodaß automatisch eine Tabelle nach der anderen bearbeitet wird.
hier ein gaaaaanz einfaches Makro was in die richtige Richtung gehen könnte:
Sub Test()
Dim Datei$, WB(25) As Workbook, i%, Pfad$
On Error Resume Next
i = 0
Pfad = „C:\Daten\Irgendwas“
Datei = Pfad & Dir(Pfad & „*.xls“)
Do
WB(i) = Workbooks.Open(Datei)
i = i + 1
Datei = Pfad & Dir
Loop Until Err.Number 0
End
Jetzt nur noch den Pfad anpassen und dann irgendwas mit den Tabellen anstellen (die werden in der Reihenfolge in der sie geöffnet wurden in WB(0-25) abgelegt. Darüber kannst du dann gezielt auf einzelnen Tabellen zugreifen und die Kopiererei durchführen.