Text in Spalten

Sub OpenFile()
Dim strDatei As String
Dim strNam As String
Dim bolDa As Boolean
Dim s As Workbook
Dim exp As Workbook
Dim wkbZiel As Workbook
Dim wksZiel As Worksheet
Dim wks As Worksheet
Set wkbZiel = ActiveWorkbook
strDatei = Application.GetOpenFilename("Datendateien, *.dat")
If strDatei = "Falsch" Then Exit Sub
Workbooks.OpenText FileName:=strDatei, Origin:=xlWindows, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 2), Array(4, 1), Array(5, 2), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1))
Set s = ActiveWorkbook
With s
.Worksheets(1).Range("A1") = WorksheetFunction.Trim(Worksheets(1).Range("A1"))
.Worksheets(1).Copy After:=wkbZiel.Worksheets(wkbZiel.Worksheets.Count)
.Close False
End With
Set wksZiel = wkbZiel.Worksheets(wkbZiel.Worksheets.Count)
With wksZiel
intstep = Len(.Range("A1"))
Do
intstep = intstep - 1
Loop Until Mid(.Range("A1"), intstep, 1) = " "
strNam = "Stücklisten " & Right(.Range("A1"), Len(.Range("A1")) - intstep)
End With
End Sub