Fehlermeldung trotz "OnError" (VBA)

[Watzmann]

Hallo!

Könnte mir jemand verraten, warum es trotz "OnError" Funktion zu der Fehlermeldung "Datensatz_7" konnte nicht gefunden warden kommt? Die Datei ist nicht vorhanden, ist als kein wirklicher Laufzeitfehler (Darum auch OnError):

Code:

Sub AnalyseMacro()
Dim n, i As Double
Dim Namedatei As String
Namedatei = "Dataset_"
i = 11 'Zeile, in der begonnen werden soll, Werte inzutragen
n = 0
Do
Do While Workbooks("Analysis.xlsm").Sheets("Data").Range("A" & i).Value = ""
n = n + 1
Workbooks.Open (ThisWorkbook.Path & "\Data\" & Namedatei & n & ".xlsx"), ReadOnly:=False

    On Error GoTo Abbruch
...

Exit Sub

Abbruch:
MsgBox "Update finished!"

End Sub

[Kuwer]

Hallo,

ohne vollständigen Code ist keine Analyse möglich.

Gruß Uwe

[mumpel]

Hallo!

Es gibt Fehler die sich mit On-Error-Anweisungen nicht abfangen lassen.

Gruß, René

[Kuwer]

Hallo René,

Es gibt Fehler die sich mit On-Error-Anweisungen nicht abfangen lassen.

Workbooks.Open gehört aber nicht dazu.

Gruß Uwe

[snb]

Code:

if dir(ThisWorkbook.Path & "\Data\" & Namedatei & n & ".xlsx")<>"" then
  with getobject(ThisWorkbook.Path & "\Data\" & Namedatei & n & ".xlsx")

  end with
end if

PS. Vermeide Do .... Loop