Option Explicit
Public Originaldatei
Sub ZP16_Download_aufbereiten()
Dim Inventarnummer, Downloadtabelle, Tabellenblatt, Aggregat
Dim Tabellen, letzte_Zeile
Application.ScreenUpdating = False
Verarbeiten:
Sheets("ZP16 download").Select
ActiveSheet.Unprotect ("bockenau")
'Pfadeinstellung vornehmen
Run ("dir_originaldateien_ZP16")
On Error GoTo dr_fuhrmann
'Datei als Text öffnen
Workbooks.OpenText Filename:=Application.GetOpenFilename _
, 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 = ActiveWindow
'Tabellenblatt aus der Datei rauskopieren & formatieren
ActiveSheet.Copy after:=Workbooks("Produktionskennzahlen 1.1.xls").Sheets(2)
Rows("1:1").Font.Bold = True
Cells.Columns.AutoFit
Originaldatei.Close (False)
Später im Formcode:
If Originaldatei = "" Then
MsgBox "Sie haben keine Datei ausgewählt, der Vorgang wird beendet!", vbCritical, "F.F.Excelsystem"
Exit Sub
End If
So, und Originaldatei ist immer "" !!