In der Datei die ich hochgeladen habe https://www.herber.de/bbs/user/5258.xls möchte ich folgendes machen
in den tabellenblatt "CSV" ist ein Button der eine *.CSV Datei geöffnt wird.
aber leider in einer neuen Excel Anwendung. Wie kann der Code ausschaun damit die *.CSV in das Tabellenblatt "Import" geöffnet wird
Sub TextDateiOeffnen()
Dim datName
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
datName = Application.GetOpenFilename("csv dateien (*.csv), *.csv")
If datName = False Then Exit Sub
Workbooks.OpenText Filename:=datName, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=True, Space:=True
Columns("A:F").AutoFit
Application.ScreenUpdating = True
End Sub
Gruß Jens