anbei ein Quellcode, mir dem Du Excel-DAten in eine Access-Tabelle schreiben kannst. Aktiviere vorher die Bibliothek ADO unter Extras/Verweise.
ADOC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Eigene Dateien\Buchungen.mdb;"Sub DatenübernahmeNachAccess()
Code eingefügt mit Syntaxhighlighter 1.14
Dim ADOC As New ADODB.Connection
Dim DBS As New ADODB.Recordset
DBS.Open "Veranstaltung", ADOC, adOpenKeyset, _
adLockOptimistic
Sheets("Veranstaltungen").Activate
Range("A2").Select
On Error Goto fehler
Do Until ActiveCell.Value = ""
DBS.AddNew
DBS!Bdatum = ActiveCell.Value
DBS!Vdatum = ActiveCell.Offset(0, 1).Value
DBS!Veranstaltung = ActiveCell.Offset(0, 2).Value
DBS!V_Ort = ActiveCell.Offset(0, 3).Value
DBS!Teilnehmer = ActiveCell.Offset(0, 4).Value
DBS!Straße = ActiveCell.Offset(0, 5).Value
DBS!PLZ = ActiveCell.Offset(0, 6).Value
DBS!Ort = ActiveCell.Offset(0, 7).Value
DBS!Kosten = ActiveCell.Offset(0, 8).Value
If ActiveCell.Offset(0, 9).Value = "Ja" Then DBS!Bezahlt = True Else DBS!Bezahlt = False
DBS.Update
ActiveCell.Offset(1, 0).Select
Loop
DBS.Close
ADOC.Close
Set ADOC = Nothing
Set DBS = Nothing
Exit Sub
fehler:
MsgBox "Es trat ein Fehler auf!"
DBS.Close
ADOC.Close
Set ADOC = Nothing
Set DBS = Nothing
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen mit Leseprobe(PDF) unter: http://held-office.de
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen