Office: On Error in einer For Next Schleife

Mattin12 · 29. November 2004

Hi @all!

Ich habe eine For-Next-Schleife, in der zwanzig Dateien nacheinander geöffnet werden. Sollt diese nicht vorhanden sein, soll mit der nächsten fortgefahren werden. Also habe ich in den Code

On Error Goto NächsteDatei

NächsteDatei: Next

eingebaut, aber der goto Befehl funktioniert nur einmal. Wenn eine zweite Datei nicht gefunden wird, erscheint die Datei-Nicht-Gefunden-Fehlermeldung. Warum

Habe schon

On Error Goto 0

eingefügt, weil ich das irgendwo gelesen habe, aber das funktioniert auch nicht...

:)

Lumpensammler · 30. November 2004

Hallo, Mattin,

ich würde es einmal mit

Code:

On Error Resume Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

versuchen.

Gruß
LS

Mattin12 · 30. November 2004

Das funktioniert nicht, da dann das Makro durchgeführt wird, das nur vorgesehen ist, wenn eine Datei geöffnet ist (Resume Next verweist ja auf die nächste Zeile). Genau das soll nicht passieren, sondern direkt nach der nächsten Datei gesucht werden...

Lumpensammler · 30. November 2004

Hallo, Mattin,

die Anweisung als Ganzes heißt On Error Resume Next, in der Fehlerbehandlung sollte dann wohl die Zeile On Error Resume NächsteDatei stehen.

Gruß
LS

Mattin12 · 30. November 2004

Nach 'Resume' lässt Excel nur 'Next' zu - ansonsten kommt (zumindest bei mir) eine Fehlermeldung...

Lumpensammler · 1. Dezember 2004

Hallo, Mattin,

ich verwende bei meinen Codes einen eigenen Fehlerbereich (Err_NameDesModuls), in dem diese Anwendung zur Rückstellung der Fehlermeldung dann auch funktioniert und als Rücksprungadresse verwendet werden kann.

Gruß
LS

Steffen0815 · 1. Dezember 2004

Hi Mattin,
nur mal so 'ne Idee, warum fängst du den Fehler nicht ab if (datei nicht existiert) then next datei

Gruß Steffen

User · 1. Dezember 2004

Hallo Mattin,

prüfe doch ob Datei vorhanden. Verzichte völlig auf on Error

Code:

Option Explicit

Sub Vorhanden_Datei()
' Fehler falls LW nicht vorhanden
If Dir("D:\Eigene Dateien\Hajo\Adresse1.xls") "" Then
MsgBox "vorhanden"
Else
MsgBox "nicht vorhanden"
End If
End Sub

Sub Vorhanden_Phad()
' Fehler falls LW nicht vorhanden
If Dir("C:\Eigene Dateien\") "" Then
MsgBox "vorhanden"
Else
MkDir "C:\Eigene Dateien\\"
MsgBox "nicht vorhanden"
End If
End Sub

Sub Ordner_vorhanden()
' von Berti Koern
Dim Fso, Ordnername
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "C:\Eigene Dateien\"
' MsgBox Fso.FolderExists(Ordnername)
If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
End Sub

Sub Datei_vorhanden()
' von Berti Koern
Dim Fso, Dateiname
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "D:\Eigene Dateien\Hajo\Adresse.xls"
' Egänzung öffnung Hajo
If Fso.FileExists(Dateiname) Then
Workbooks.Open Dateiname
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3

Mattin12 · 1. Dezember 2004

Hallo Lumpensammler, Steffen und Hajo!

Ich habe die Lösung von Hajo genutzt. Jetzt funzt es prima. Vielen Dank für Eure Hilfe...

Gruß
Mattin

Office: On Error in einer For Next Schleife

On Error in einer For Next Schleife

On Error in einer For Next Schleife

On Error in einer For Next Schleife

On Error in einer For Next Schleife

On Error in einer For Next Schleife - Similar Threads - Error For Next

Excel Powerquery: Nach Schließen & Laden Fehlermeldung [DataFormat.Error]

#WERT! error + Formula Issue (horizontal vs vertikal)

Gmail Synchronisation: IMAP Error 78754

On Error wird immer ausgeführt

Bei meinen Teams wird statt meinen Gruppen der Error {{::buttonText}} angezeigt.

Teams for private use error

Error: No unique index found for the referenced field of the primary table