AW: Liste aus verschiedenen Dateien (Formel)
02.06.2005 08:19:01
IngGi
Hallo Max,
über Formeln läßt sich dein Problem nicht lösen, dazu müßtest du die Namen deiner Kundendateien kennen. Dann könnte man über "=WENN(ISTFEHLER..." und externe Bezüge etwas machen. Wenn du aber alle Kundendaten in einem Verzeichnis stehen hast, kannst du das folgende Makro verwenden. Statt "C:\Kunden\" mußt du natürlich das richtige Kundenverzeichnis in das Makro eintragen.
Sub Sammeldatei()
Dim fso As Object, fo As Object, f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.getfolder("C:\Kunden\")
For Each f In fo.Files
Workbooks.Open Filename:=f.Path
ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = _
ActiveWorkbook.Sheets(1).Range("B5")
ActiveWorkbook.Close False
Next f
End Sub
Gruss Ingolf