zum Konsolidieren von Daten aus verschiedenen EXCEL-Dateien (gleicher Aufbau) in eine ACCESS Datenbank habe ich folgendes Makro geschrieben, das auch soweit tadellos funktioniert:
Sub ExportToACCESS()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim r As Long
Dim SQLCommand As String
Set cn = New ADODB.Connection
cn.ConnectionString = & _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & _
"C:\Neuer Ordner\" & "Database1.accdb;"
cn.Open cn.ConnectionString
SQLCommand = "INSERT INTO Tabelle1 " _
& "VALUES ('01', 'Beispieltext')" ' Diesen Teil hätte ich gerne dynamisch
cn.Execute SQLCommand
cn.Close
End Sub
Nun zu meinem Problem:Die Values innerhalb des SQL Befehls sollen aus einer dynamischen Range B18:AHx kommen. Innerhalb der Range ändert sich nur die Anzahl der Datensätze/-zeilen, z. B: B18:AH25. Gibt es eine Möglichkeit, die Werte durch eine Bereichs-Angabe/Schleife etc. einzulesen, wie z. B.:
& "VALUES (MyRange)"
Wäre extrem dankbar, wenn mir jemand helfen könnte, da ich mit meinen SQL Kenntnisse hier offensichtlich an die Grenzen komme.
Danke euch vielmals...
LG,
Johannes