Ich habe ein Makro das verschiedendliche Dateien öffnet und in meiner aktiven Arbeitsmappe einfügt. Nun möchte ich das mein Makro wenn es vorgegebene Dateien die es ja öffnen soll nicht findet (weil es die nicht gibt)den Punkt einfach überspringt und den Rest weitermacht.
Konkret:
Findest du Juli\1.xls dann ok. Findest du Jul1\1.xls nicht dann kein Fehler überspringen und weitermachen.
Findest du Juli\2.xls dann ok. Findest du Jul1\2.xls nicht dann kein Fehler überspringen und weitermachen.
- Die ganze Prozedur bis zum Juli\31.xls
Anbei ein Teil meines Makros:
"I:\BV34\07_Juli"
Workbooks.Open FileName:= _
"\\hvus0019\BV\BV34\Juli\1.xls"
ActiveWindow.WindowState = xlNormal
Sheets("Sheet1").Select
Sheets("Sheet1").Move Before:=Workbooks("Verwendungsnachweis.xls").Sheets(1)
ActiveWindow.WindowState = xlMaximized
Workbooks.Open FileName:= _
"\\hvus0019\BV\BV34\Juli\2.xls"
ActiveWindow.WindowState = xlNormal
Sheets("Sheet1").Select
Sheets("Sheet1").Move Before:=Workbooks("Verwendungsnachweis.xls").Sheets(2)
ActiveWindow.WindowState = xlMaximized
Workbooks.Open FileName:= _
"\\hvus0019\BV\BV34\Juli\3.xls"
ActiveWindow.WindowState = xlNormal
Sheets("Sheet1").Select
Sheets("Sheet1").Move Before:=Workbooks("Verwendungsnachweis.xls").Sheets(3)
ActiveWindow.WindowState = xlMaximized
usw.
Schon mal vielen Dank für eure Mühe:):)
Gruß
Achim H.