Hallo Gast38073,
vielen Dank für deine Hilfe!!
Allerdings komme ich noch nicht ganz zurecht. Ich habe bei Do While ein = eingefügt, ist doch richtig, oder?
Bei
If Right(pfad, 1) "\" Then pfad = pfad & "\"
erhalte ich noch einen Fehler den ich leider nicht finde.
Vielleicht wärst du so nett und könntest noch etwas helfen.
Viele Grüße,
Jörg
Sub auslesen()
Dim pfad As String
pfad = ActiveWorkbook.Path
If Right(pfad, 1) "\" Then pfad = pfad & "\"
Datei = Dir(pfad & "*.txt") 'nur TXT Datein werden angezeigt
Do While Datei = ""
'hier jetzt dein öffnen und auslesen / eintragen rein
'Textdatei einlesen
Workbooks.OpenText Filename:=pfad, Semicolon:=True
Datei = Dir 'sucht ds nächste Element
Loop
End Sub
|