Kann mir jemand bei diesem Phänomen helfen
Schöne Grüße
Josi
https://www.herber.de/bbs/user/60189.zip
Public Sub CSVImport_01()
' CSV oder TXT einlesen auf mehreren Tabellen, 65536 Zeilen begrenzt durch Excel
Const LWCSV = "C:\"
Const PFADCSV = "C:\VERZEICHNIS\"
ChDrive LWCSV
ChDir PFADCSV
Dim FileName As String
Dim FileNum As Integer
Dim ResultStr As String
Dim wsSheet As Worksheet
Dim strValues(65536, 1) As String
Dim lngRow As Long
Dim intSheet As Integer
Dim intCounter As Integer
FileName = Application.GetOpenFilename("Textdateien " _
& "(*.txt; *.csv),*.txt; *.csv", _
Title:=" CSV oder TXT Datei zum Öffnen auswählen")
If FileName = "" Or FileName = "Falsch" Then Exit Sub
FileNum = FreeFile()
Open FileName For Input As #FileNum
Application.ScreenUpdating = False
Workbooks.Add template:=xlWorksheet
lngRow = 1
intSheet = 1
Application.StatusBar = "Blatt " & intSheet & " wird eingelesen"
Do While Seek(FileNum)
MfG eric