Warum ist das keine Zahl?

[Der Steuerfuzzi]

Hallo,

ich gehe mal davon aus, dass es sich in der "echten" Datei um mehr als eine Zeile handelt. Dann würde ich die Daten aus dem "Zeilen-Array" nicht in ein zweites Zeilen-Array schreiben, sondern in ein Array mit allen Zeilen und dieses dann in die Tabelle einfügen. Zudem würde ich Zahlen mit Dezimalkomma anders umwandeln, sonst kommt eventuell mist dabei raus. Z. B. so:

Code:

For n = 0 To UBound(a)
  If IsNumeric(a(n)) Then
      If InStr(a(n), ".") > 0 Then
          b(i, n) = CDbl(Replace(a(n), ".", ","))
      Else
          b(i, n) = CLng(a(n))
      End If
  Else
      b(i, n) = a(n)
  End If
Next

Aber Achtung, wenn Tausender-Trennzeichen vorkommen, müssen diese auch ersetzt werden.