Clever-Excel-Forum

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

Hallo,

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

Gruß Uwe

Hallo!

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

Gruß, René

Hallo René,

(25.01.2016, 13:16)mumpel schrieb: [ -> ]Es gibt Fehler die sich mit On-Error-Anweisungen nicht abfangen lassen.

Workbooks.Open gehört aber nicht dazu.

Gruß Uwe

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

Watzmann

Kuwer

mumpel

Kuwer

snb