Excel nach Access ...

[wbendl]

Die Zeit zum Editieren war leider schon abgelaufen

Hier der Code mit dem ich's probiert habe. Tabelle1 ehält vorher bereits 3 Felder.

Set tbl = db.TableDefs("Tabelle1")

Do Until rs.EOF

Select Case rs.Fields(1)
Case "Text"
Format = 10
Case "Zahl"
Format = 3
Case "Ja/Nein"
Format = 1
Case Else
Format = 10
End Select

Set fld = tbl.CreateField(rs.Fields(0), Format)


tbl.Fields.Append fld
fld.Properties.Append fld.CreateProperty("Description", dbText, rs.Fields(2))

rs.MoveNext
Loop

Mit der kleinen Änderung ersparst du dir kopieren/einfügen.

mfg

WB