Hab da ein kleines Problem.
Wenn ich versuche meine Tabelle zu füllen, bekomme ich irgendwann den obrigen Fehler.
Woran könnte das nun liegen?
hier der Code:
Open tmp For Input As #1
n = 15
While Not EOF(1)
Line Input #1, z
a = Split(z, ";")
For i = 0 To 6
Range("A" & n).Select
''ActiveCell.FormulaR1C1 = a
ActiveCell.NumberFormat = "@"
ActiveCell = a(i)
i = i + 1
Range("C" & n).Select
ActiveCell.NumberFormat = "@"
ActiveCell = a(i)
i = i + 1
Range("E" & n).Select
ActiveCell.NumberFormat = "@"
ActiveCell = a(i)
i = i + 1
Range("H" & n).Select
ActiveCell.NumberFormat = "@"
ActiveCell = a(i)
i = i + 1
Range("J" & n).Select
ActiveCell.NumberFormat = "@"
ActiveCell = a(i)
i = i + 1
Range("K" & n).Select
ActiveCell.NumberFormat = "@"
ActiveCell = a(i)
i = i + 1
Next
n = n + 1
Wend
Close #1
Daten werden eingelesen, String gesplittet und dann normalerweise in die Tabelle eingetragen.
Grüße und vielen dank
Michael Reinhardt