|
Hallo,
Ich habe eine Tabelle welche Farbübergänge.xlsx heißt.
In dieser Tabelle sind für Jedes Jahr Tabellenblätter angelegt. Tabellenstruktur ist gleich.
Tabellenblätter sind fortlaufen (Übergang 2020, Übergang 2021, Übergang 2022).
Tabelle hat die Spalten (Datum,Schicht,Färber,Von Farbe, Auf Farbe,AP-Eintrag, Soll Vorgabe kg,Übergang kg, Besonderheiten) von A bis I.
Jetzt habe ich eine Andere Tabelle und möchte gern einen Belibigen Wert suchen.
Wiedergegeben werden soll mir immer die komplette Zeile von A bis I , in welcher dieser Wert vorkommt. Aber dies auf allen Tabellenblättern der Farbübergänge.xlsx
Am liebsten Soll mir der Wert in eine Listbox wiedergegeben werden.
Bin bisher nur bis in eine Tabellenblatt gekommen. Was ich auch nicht verstehe wenn ich nach Färber suche funktioniert meine Formel,
Suche ich ab nach "Von Farbe" funktioniert es nicht mehr. (Suchtext ist Zahl)
Hier funktioniert die Übertragung zumindest auf ein Tabellenblatt, aber auch nur von dem einem Jahr:
Sub ADO()
'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 von Farbübergänge.xlsx;HDR=Yes';"
'Query definieren und ausführen
Query = "SELECT * FROM [Übergang 2022$] From Färber = 'Pohl' "
rs.Open Query, Connection
'Daten ins Tabellenblatt laden
Tabelle6.Range("A1").CopyFromRecordset rs
'Connection schließen
Connection.Close
End Sub
Dies funktioniert nicht:
Sub ADO()
'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 von Farbübergänge.xlsx;HDR=Yes';"
'Query definieren und ausführen
Query = "SELECT * FROM [Übergang 2022$] From Auf Farbe = '0020' "
rs.Open Query, Connection
'Daten ins Tabellenblatt laden
Tabelle6.Range("A1").CopyFromRecordset rs
'Connection schließen
Connection.Close
End Sub
|