title image


Smiley habst hinbekommen
Bin doch wieder auf Workbooks.OpenText umgestiegen

, habe nur noch die Vorletzte Zeile eingefügt.

Sub Textimport()

Dim wkb As Workbook

Dim sFile As String

Set wkb = ThisWorkbook

sFile = Range("B1").Value

Workbooks.OpenText sFile, DataType:=xlDelimited, Semicolon:=True

ActiveSheet.Move after:=wkb.Worksheets(wkb.Worksheets.Count)

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: