folgendenden Code habe ich gestern von "IngoGI" bekommen. Der ist aber wohl noch nicht wach...
Hintergrund ist eine Angebotsauswertung, die ich gerne automatisch generieren möchte aus bestehenden Dateien in einem festen Verzeichnis.
Wenn ich das Makro in der Auswertung auf Zelle A5 starte, werden einige Dateien geöffnet, der Cursor bleibt in der Auswertung auf A5 stehen und Excel stürzt dann ab...?!
Kann mir ein Profi sagen, was hier nicht stimmt...?
Vielen Dank...
Gruß, Ingo
------------------------------------------------
Sub Uebersicht()
Dim fso As Object, fo As Object, f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder("\\yfps\home\Projektplanung\Projekte\Angebote 25_000\06-2005\")
On Error GoTo Fehler
'Application.ScreenUpdating = False
For Each f In fo.Files
Workbooks.Open (f.Path)
'Übersicht nächste freie Zeile, Spalte A/Kd-Nr.
ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(1, 0) = _
Workbooks(f.Name).Sheets(1).Range("B2")
'Übersicht nächste freie Zeile, Spalte B/Kd-Name
ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(0, 1) = _
Workbooks(f.Name).Sheets(1).Range("B3")
'Übersicht nächste freie Zeile, Spalte C/Kd-Ort
ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(0, 2) = _
Workbooks(f.Name).Sheets(1).Range("B4")
'usw. für die restlichen Daten
Workbooks(f.Name).Close False
Next f
Fehler:
Application.ScreenUpdating = True
End Sub