Hallo zusammen
Bring den Code nicht hin, um die Personalnummer im String"Query = "SELECT * FROM [Base$] WHERE Personalnummer = '0869854'" variabel einzusetzen. Hierzu hole ich aus Tabellenblatt mit "Nr" die gewünschte Filter Variable. welche ich versuche (leider ohne Erfolg) in den Code einzubinden
Query = "SELECT * FROM [Base$] WHERE Personalnummer = Nr" geht nicht. Da mach ich einen Überlegungsfehler, komm aber nicht dahinter was fehlt.

Liebe Gruess
Richi
-----------------------------------------------
Sub ADO()

Dim Connection As New ADODB.Connection
Dim Query As String
Dim rs As New ADODB.Recordset

Dim Nr As String

Nr = cells(3,25).value

'Connection herstellen
Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=\\ifc1.ifr.intra2.admin.ch\Userhomes\U80000033\Desktop\EXCEL Entwicklungen\Datakeep\Quelle\Base.xlsx;HDR=Yes;"

'Query definieren und ausführen
Query = "SELECT * FROM [Base$] WHERE Personalnummer = '0869854'"
rs.Open Query, Connection

'Daten ins Tabellenblatt laden
Tabelle3.Range("A5").CopyFromRecordset rs

'Connection schließen
rs.Close
Connection.Close

End Sub