Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bei Fehler eine Anzahl von Befehlzeilen überspring

Forumthread: Bei Fehler eine Anzahl von Befehlzeilen überspring

Bei Fehler eine Anzahl von Befehlzeilen überspring
01.12.2004 20:59:07
Befehlzeilen
Hallo,
ich möchte, dass wenn das Programm die Datei "PfadplusDatei" nicht findet, zu der Zeile "Next Lzaehler" springt. Welche Möglichkeiten gibt es?
On Error Goto xxx - hat nicht wirklich funktioniert
Freue mich über jeden Hinweis. Danke
Beispiel:
For Lzaehler = 5790 To 5999
PfadplusDatei = "D:\Reports\" & JahrMonat & "_" & Lzaehler "_Lagerreport.csv"
On Error Resume Next
Workbooks.Open FileName:=PfadplusDatei
On Error Resume Next
Call Lagerreportlayout(JahrMonat, Lagerzaehler)
Call Persol_clear
Next Lzaehler
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bei Fehler eine Anzahl von Befehlzeilen überspring
01.12.2004 21:04:28
Befehlzeilen
UNgetestet sollte aber gehen !
For Lzaehler = 5790 To 5999
PfadplusDatei = "D:\Reports\" & JahrMonat & "_" & Lzaehler "_Lagerreport.csv"
Dateiname = Dir$("c:\temp\*.xls")
if dateiname ="" then goto leer
end if
On Error Resume Next
Workbooks.Open FileName:=PfadplusDatei
On Error Resume Next
Call Lagerreportlayout(JahrMonat, Lagerzaehler)
Call Persol_clear
leer:
Next Lzaehler
Anzeige
AW: Bei Fehler eine Anzahl von Befehlzeilen übersp
01.12.2004 21:06:47
Befehlzeilen
Hallo Randolf!
Am besten prüfen ob die Datei existiert!
For Lzaehler = 5790 To 5999
PfadplusDatei = "D:\Reports\" & JahrMonat & "_" & Lzaehler & "_Lagerreport.csv"
If FileExist(PfadplusDatei) Then
Workbooks.Open Filename:=PfadplusDatei
Call Lagerreportlayout(JahrMonat, Lzaehler)
Call Persol_clear
End If
Next Lzaehler

Public Function FileExist(ByVal Dateiname As String) As Boolean
On Error GoTo errorhandler
If Dateiname = "" Then GoTo errorhandler
FileExist = Dir$(Dateiname) <> ""
Exit Function
errorhandler:
FileExist = False
Resume Next
End Function

Code eingefügt mit: Excel Code Jeanie
Gruß Sepp
Anzeige
AW: Bei Fehler eine Anzahl von Befehlzeilen übersp
06.12.2004 18:57:42
Befehlzeilen
Hallo Sepp,
Danke hat geholfen.
Randolf

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige