Workbooks.Open - On error funktioniert nicht
JBecker
Ab der Zelle A2 stehen in der Spalte A Pfad und Dateiname untereinander
(z.B. C:\test1.xls / C:\test2.xls / ... ).
Wenn die Dateien existieren arbeitet das Makro problemlos,
Wenn allerdings test1 und test2 nicht existieren wird in die Zelle B2 der Hinweis gemäß Zeile 11 geschrieben (d.h. "Fehler: Datei existiert nicht"), bei test 2 gibt es aber einen Fehlerhinweis von Excel: Laufzeitfehler 1004, 'C:\test2.xls' wurde nicht gefunden.... und das Makro bleibt somit stehen.
Wo liegt mein Fehler?
Besten Dank im voraus,
Jörg
Sub Import()
Dim Start As Variant
Dim Importdatei As Variant
Dim Summarydatei As Variant
Summarydatei = ActiveWorkbook.Name
Start = Range("A1").Address
Zeile1:
Start = Range(Start).Offset(1, 0).Address
If Range(Start).Value = "" Then Exit Sub
Importdatei = Range(Start).Value
Application.DisplayAlerts = False
On Error GoTo Zeile11
Workbooks.Open Filename:=Importdatei
On Error GoTo 0
Windows(Summarydatei).Activate
GoTo Zeile1
Zeile11:
Windows(Summarydatei).Activate
Range(Start).Offset(0, 1).Value = "Fehler: Datei existiert nicht"
On Error GoTo 0
GoTo Zeile1
End Sub