Set wbAS400 = Workbooks.OpenText(Filename:=PfadAS400 & ":\NL" & NL & "\NL" & NL & ".txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False)
BEIM KOMPILIEREN KOMMT IMMER DIE MELDUNG: FEHLER BEIM KOMPILIEREN Function oder Variable erwartet
danke, stefan