Folgende Zeilen zeigen den Programmcode. Beim öffnen der txt-Dateien sollte auch die Importierung der der einzelenen Spalten funktionieren.
(siehe letzte Zeilen)
für Tipps wäre ich sehr dankbar
Dim Check, Counter
Dim i, dIndex As Integer
'
' Öffnen der Datei***********************************************************
Dim sDatei As String
sDatei = "C:\btr\Projekte\bcc\Auswertung\14490236-BTR-2-2.txt"
dIndex = 1
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt", 1, , , True)
sDatei = TypeName(fileToOpen)
If sDatei = "Boolean" Then
If sDatei = False Then
Exit Sub
End If
End If
If TypeName(fileToOpen) <> "Variant()" Then
Exit Sub
End If
Do While dIndex <= UBound(fileToOpen)
sDatei = fileToOpen(dIndex)
Workbooks.OpenText Filename:= _
sDatei, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 4), Array( _
3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1))
mfg dan