Gruppe
Extern
Problem
Die in Zelle B1 genannte Textdatei wird in ein neues Blatt dieser Arbeitsmappe importiert.
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