Code erweitern (Excel nach Access)
Lorenz
Mit folgendem Code exportiere ich die Werte der sechs Spalten nach Access in die Spalten Feld1 bis Feld6.
Funktionert problemlos. Wie muß der Code lauten, wenn z.B. im Access die Spalte (Feld4) nicht mehr Feld4, sondern "Beleg" heißt? Hat jemand ´nen Tipp?
der Code:
Dim Verweisdbvariable As New Access.Application, db As DAO.Database, rs As DAO.Recordset
Dim DbTemp As Variant, a As Integer, TabPos As Variant, DbNext As String
Sub Daten_schreiben()
Verweisdbvariable.OpenCurrentDatabase ("C:\Temp\db1.accdb")
Verweisdbvariable.Visible = False
Set db = Verweisdbvariable.CurrentDb
DbNext = "gewechselt"
For a = 1 To 6
DbTemp = Cells(1, a).Value
TabPos = "Feld" & a 'Gruß
Lorenz
Anzeige