Im folgenden Beispiel soll eine Datenbank in eine Tabelle importiert werden.
Es werden aber keine numerischen Werte aus der DB importiert, warum?
Oder hat jemand eine andere Funktion die garantiert funktioniert?
Vielen vielen Dank im voraus für eure Mühen!
Dim C As Range
Dim dName$
Application.ScreenUpdating = False
dName = "C:\temp.dbf"
Workbooks.Open FileName:=dName
For Each C In Range("E2:E6")
C.Value = C.Value * 2
Next C

Zusätzliche Info : Die Datenbank enthält 4 Datenbankfelder, die Werte der
letzten 2 DB Felder(numerisch) werden nicht importiert.