ich habe folgendes Makro gefunden und soweit abgewandelt:
Option Explicit
Public Sub data_import()
' author
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("Ziel").Range("C5")
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 [Überschrift_1],[Überschrift_3], [Überschrift_5] 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
Private Sub AusgabePerCopyFromRecordset(DasRecordSet As Object, StartAusgabe As Range)
StartAusgabe.CurrentRegion.Clear
StartAusgabe.CopyFromRecordset DasRecordSet
End Sub
Nun möchte ich anstelle der 3 Query Überschriften [Überschrift_1],[Überschrift_3] und [Überschrift_5] gerne die Zellenbezeichnung nehmen, so dass Excel mir nicht nach der Überschrift_1 sucht sondern nach dem Wert der in A1, B1, und C1 steht.
Vielen Dank!