Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige