Gruppe
Extern
Bereich
TextImport
Thema
Textdatei in ein neues Tabellenblatt der Arbeitsmappe importieren
Problem
Die in Zelle B1 genannte Textdatei wird in ein neues Blatt dieser Arbeitsmappe importiert.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub TextImport()
Dim wkb As Workbook
Dim sFile As String
Set wkb = ThisWorkbook
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Else
Workbooks.OpenText sFile
ActiveSheet.Move after:=wkb.Worksheets(wkb.Worksheets.Count)
End If
End Sub