Habe noch eine Frage bezüglich meiner ADO Query:
Public Sub data_import()
' Marc Reuß
Dim oAdoConnection As Object, oAdoRecordset As Object
Dim sAdoConnectString As String, sPfad As String
Dim sQuery As String
Dim oZielStartRange As Range
On Error GoTo Fehler
sPfad = ThisWorkbook.FullName
Set oZielStartRange = ThisWorkbook.Worksheets("Ideenübersicht").Range("J6")
Set oAdoConnection = CreateObject("ADODB.CONNECTION")
sAdoConnectString = "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & sPfad
oAdoConnection.Open sAdoConnectString
Set oAdoRecordset = CreateObject("ADODB.RECORDSET")
sQuery = "Select [" & Range("J2") & "],[" & Range("K2") & "], [" & Range("L2") & "], [" & Range( _
"X2") & "],[" & Range("Y2") & "],[" & Range("Z2") & "] from [Quelle$]"
With oAdoRecordset
.Source = sQuery
.ActiveConnection = oAdoConnection
.Open
Call AusgabePerCopyFromRecordset(oAdoRecordset, oZielStartRange)
End With
Aufraeumen:
On Error Resume Next
oAdoRecordset.Close
oAdoConnection.Close
Set oAdoRecordset = Nothing
Set oAdoConnection = Nothing
Exit Sub
Fehler:
MsgBox "Fehler: " & Err.Description
Resume Aufraeumen
End Sub
Einlesen klappt perfekt - jedoch will ich die Daten erst in ab Zelle J6 einlesen was auch klappt, jedoch werden alle Zellen links und oberhalb der eingelesenen Daten gelöscht. Kann man dies irgendwie umgehen dass nur ab J6 nach rechts und unten eingefügt wird und der Rest des Arbeitsblattes erhalten bleibt?