Kann mir jemand sagen, warum an der der Stelle, bei der die "Originaldatei geöffnet werden soll im Falle "Abbrechen" keine Sprung zur Fehlerbehandlung erfolgt?
Gruß
F.
Kann mir jemand sagen, warum an der der Stelle, bei der die "Originaldatei geöffnet werden soll im Falle "Abbrechen" keine Sprung zur Fehlerbehandlung erfolgt?
Gruß
F.
test: Sheets("Gesamtliste").Delete Run "Pfad_Originaldatei" Workbooks.OpenText Filename:=Application.GetOpenFilename _
Sub Verarbeiten()
Application.ScreenUpdating = False
Dim letzte_Zeile, Originaldatei
On Error GoTo Fehler
Application.DisplayAlerts = False
Sheets("SAP_Download").Delete
Sheets("Alle Erzeugnisse").Delete
Sheets("Fehlerhafte Bestände").Delete
Sheets("Hinzugefügte Erzeugnisse").Delete
On Error GoTo 0
Weiter:
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
(1, 1), Array(2, 1), Array(3, 1), Array(4, 1))
Set Originaldatei = ActiveWorkbook
Erst heißt es "On Error GoTo Fehler", die Sprungmarken heißen "test:" und "weiter:", "Fehler:" fehlt.
Mit "On Error GoTo 0" nimmst Du alle Sprungbefehle wieder zurück. Im unteren Teil (Workbooks.open) gibt es keinen Sprungbefehl.
Holger