|
Guten Tag,
ich habe im Internet schon viel gesucht aber nicht wirklich was gefunden.
Ich möchte gerne eine CSV Datei importieren.
Ich habe aber das Problem das die CSV Datei mit diesem Code:
Sub einlesen()
Z = Sheets(1).UsedRange.Rows.Count
Open "C:\Users\Desktop\dateixyz.csv" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
Sheets(1).Cells(Z, 1) = Replace(temp, vbTab, ";")
Z = Z + 1
Loop
Close #1
For j = 1 To Z
Text = Split(Cells(j, 1), ";")
For i = 0 To UBound(Text)
Cells(j, i + 1) = Text(i)
Next
Next
End Sub
zwar eingelesen wird aber alles nur in einer Zeile dargestellt wird und dort wo die nächste Zeile anfängt schreibt er mir in eine Zeile:
und das sieht dann so aus:
Typ
1
aber wie gesagt in einer Zelle.
Gibt es einen Befehlt um in der nächsten Zeile bei Alt+Enter anzufangen ?
|