Oder kann mir einer Sagen wie dies mit einer Providerangabe aussehen kann?
Private Sub TextBox1_Change()
If TextBox1.TextLength = 4 Then
'Dim TextBox1 As Variant
Else
Exit Sub
End If
Tabelle1.Range("A2:I2000").ClearContents
'Variablen deklarieren
Dim Connection As New ADODB.Connection
Dim Query As String
Dim rs As New ADODB.Recordset
Dim arr As Variant
'Connection herstellen
Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=C:\Users\Marcus\Desktop\Kopie.xlsx;HDR=Yes';"
'Query definieren und ausführen
Cells(Range("J5").End(xlUp).Offset(1, 0).Row, 10) = Me.TextBox1
Query = "SELECT * FROM [Übergangserfassung 2022$]WHERE ([Auf Farbe]) = Forms!TextBox1.Value"
rs.Open Query, Connection
'Daten ins Tabellenblatt laden
Tabelle1.Range("A2").CopyFromRecordset rs
End Sub
|