Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehlermeldung umgehen

Forumthread: Fehlermeldung umgehen

Fehlermeldung umgehen
29.07.2004 08:08:43
Achim
Hallo Excel Freunde
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.
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung umgehen
ChrisL
Hi Achim
On Error Resume Next
Ist aber etwas gefährlich, denn so werden ALLE Fehlermeldungen übersprungen. Sauberer wärs, wenn du eine Prüfung einbaust, ob eine Datei vorhanden ist.
N.b. auf...
Sheets("Sheet1").Select
... kannst du m.E. verzichten.
WindowState würde ich ganz am Anfang und ganz am Schluss einmal umstellen (sofern überhaupt notwendig).
Gruss
Chris
Anzeige
AW: Fehlermeldung umgehen
Karl
Die Existenzprüfung kannst du mit

Sub ()
If Dir$(Pfad) <> "" then
Workbooks.Open ...
End If
End Sub

gestalten. Dein Code lässt sich noch verschlanken.
Gruß Karl
AW: Fehlermeldung umgehen
29.07.2004 12:05:49
Achim
Danke für die Tipps :):):)
Achim H.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige