VBA: Werte aus txt Datei untereinander in Excel
06.06.2015 12:55:16
Emre
mir ist es fast schon peinlich wieder euch zu fragen, weils jetzt schon so oft wurde.
Aber ich hoffe ihr könnt mir helfen. Gestern habe ich den Code um die Spalte A nach Notepad++ nicht untereinander, sondern nebeneinander zu exportieren gebraucht. Heute brauche ich genau das Gegenteil.
Die Werte die in Notepad++ nebeneinander durch ein Semikolon getrennt sind muss ich nach Excel untereinander in die Spalte A importieren. Einen passenden Code im Internet habe ich gefunden, der mir die Werte nebeneinander importiert. Getrennt durch das Semikolon habe ich sie auch noch. Was mir fehlt ist, ich brauche die Werte untereinander in Zelle 1, 2, 3, 4, 5 etc.
Der Code ist der hier, wo könnte man das verändern. Habe ein paar Sachen ausprobiert, jedoch nichts passendes finden können.
Sub VerLadeMichMal()
Dim strPfad As String
Dim lngFN As Long
Dim strText As String
Dim vntArrayZeilen As Variant
Dim lngZeileNr As Long
Dim vntArrayWerte As Variant
Dim lngSpalte As Long
Dim wksZ As Worksheet
Set wksZ = ActiveWorkbook.Worksheets("Tabelle1")
strPfad = "C:\Users\User\Desktop\Import_1.txt"
lngFN = FreeFile
Open strPfad For Binary As lngFN
strText = Space(LOF(lngFN))
Get lngFN, 1, strText
Close lngFN
vntArrayZeilen = Split(strText, vbCrLf, -1, 1)
For lngZeileNr = 0 To UBound(vntArrayZeilen)
vntArrayWerte = Split(vntArrayZeilen(lngZeileNr), "; ", -1, 1)
For lngSpalte = 0 To UBound(vntArrayWerte)
If IsNumeric(vntArrayWerte(lngSpalte)) Then
wksZ.Cells(lngZeileNr + 1, lngSpalte + 1).Value = Val(Replace(vntArrayWerte(lngSpalte), ",", _
".", 1, -1, 1))
Else
wksZ.Cells(lngZeileNr + 2, lngSpalte + 1).Value = vntArrayWerte(lngSpalte)
End If
Next
Next
End Sub