Hallo,
versuche es mit diesem Code:
Sub Anja()
Cells.Clear
Dim WB As Workbook
sPath = "c:\temp\" '<<<<<<<<<<< ändern >>>>>>>>>>>>>>>
sFile = "Anja.csv" '<<<<<<<<<<< ändern >>>>>>>>>>>>>>>
Open sPath & sFile For Input As #1
'Open "C:\Users\VWMXPDY\Desktop\DLM-Export_2.csv" For Input As iDatNum
Do While Not EOF(1)
X = X + 1
Line Input #1, Zeile
Cells(X, "A") = Zeile
Loop
Close #1
y = Columns("A").Replace("P ", "P")
lr = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & lr).TextToColumns Destination:=Range("A1"), 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, 1), Array(4, 1), Array(5, 1)), _
TrailingMinusNumbers:=True
End Sub
mfg
|