Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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.

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
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
Anzeige
AW: Fehlermeldung umgehen
29.07.2004 12:05:49
Achim
Danke für die Tipps :):):)
Achim H.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige