ich habe ein kleines Problem mit meinem Makro. Das Makro läuft zwar einwandfrei, allerdings werden die Überschriften des Textfiles nicht richtig zu den Spalten zugeordnet. Leider kenn ich mich in VBA nicht so gut aus. Hoffe es kann mir jemand helfen mein Makro so zu ändern, dass die Überschriften den richtigen Spalten zugeordnet werden. Danke und schönen Montag noch.
Grüße Sebastian
Sub TEXT()
strExt = "*.txt"
ZuÖffnendeDatei = Application.GetOpenFilename("Textdateien
(" & strExt & "), " & strExt, Title:="Textdatei auswählen")
If ZuÖffnendeDatei = False Then Exit Sub
strPath = CurDir & "\"
If strPath = "" Then
Exit Sub
Else
ChDir strPath
strFile = Dir(strPath & strExt)
Workbooks.OpenText Filename:=strPath & strFile,
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, _
Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=False, trailingMinusNumbers:=True, _
FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2))
Sheets(1).Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
End Sub