Dim adoVerbindung As Object
Dim adoRecordset As Object
Dim sVerbindung As String
Dim sQuery As String
sVerbindung = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0 Xml;HDR=YES';Data Source=\\sharepoint.site\folder\folder\exceldatei.xlsx"
On Error GoTo adoError
Set adoVerbindung = CreateObject("ADODB.Connection")
adoVerbindung.Open (sVerbindung)
Set adoRecordset = CreateObject("ADODB.Recordset")
sQuery = "Select Spalte1 from [Tabelle1$]"
With adoRecordset
.Source = sQuery
.ActiveConnection = adoVerbindung
.Open
loZielTabelle.Range(2, 1).CopyFromRecordset adoRecordset
End With