welche Lösung wäre die simpelste und einfachste um Textdateien auf Kommastellen auszulesen?
Vielen Dank für eure Antworten im Vorraus
Euer
Henrik
Option Explicit
Sub HenrikASHonduras()
Dim s As String
Dim w() As String
Dim i As Integer, k As Integer
Dim x As Integer
Dim y As Integer
Dim DeineDatei As String
Const DeinTrennzeichen = ","
DeineDatei = "E:\privat\neue textdatei.txt"
Close
Open DeineDatei For Binary As #1
s = Space(LOF(1))
Get #1, , s
Close #1
's enthält die komplette Datei
y = UBound(Split(s, vbCrLf)) 'Zeilen
x = UBound(Split(Split(s, vbCrLf)(0), DeinTrennzeichen)) 'Spalten
ReDim w(0 To y, 0 To x)
For i = 0 To y
For k = 0 To x
w(i, k) = Split(Split(s, vbCrLf)(i), DeinTrennzeichen)(k)
Next k, i
'Ausgabe
ActiveSheet.Range(Cells(1, 1), Cells(y + 1, x + 1)) = w
End Sub
PS: Rückmeldung wäre nett.