Excel nach Access ...

[Montafon]

so nun hats geklappt

für die's interessiert

Private Sub StartImport(FileName As String)

Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field
Dim rs As DAO.Recordset
Dim Format As Byte

Set db = CurrentDb

Set rs = db.OpenRecordset("Felder für RC-Plant", dbOpenDynaset)
'zuerst die neuen Felder inkl. Beschreibung nach Access importieren - Felder für RC-Plant


Set tbl = db.CreateTableDef("neue Felder für RC-Plant")
'in der Datenbank sind die neuen Feldnamen inkl. Beschreibungen enthalten und können dann
'mittels kopieren einfügen direkt in die Tabelle Element übernommen werden

Do Until rs.EOF

Select Case rs.Fields(2)
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
rs.MoveNext
Loop
db.TableDefs.Append tbl
rs.MoveFirst
Set tbl = db.TableDefs("neue Felder")
Do Until rs.EOF
Set fld = tbl.Fields(rs.AbsolutePosition)
If Not IsNull(rs.Fields(1)) Then
fld.Properties.Append fld.CreateProperty("Description", dbText, rs.Fields(1))
End If
rs.MoveNext
Loop

'Do Until rs.EOF
' Set fld = tbl.Fields(rs.AbsolutePosition)
' If Not IsNull(rs.Fields(1)) Then
' fld.Properties.Append fld.CreateProperty("Format", dbText, rs.Fields(2))
' End If
'rs.MoveNext
'Loop

rs.Close
Set db = Nothing

MsgBox ("Fertig!")

End Sub

und anschließend kopieren und einfügen im Entwurfsmodus

vielleicht nicht elegant aber es löst mein Problem

Danke