Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellen aus xlsx
14.11.2022 00:21:24 Marcus
NotSolved
14.11.2022 06:55:23 ralf_b
NotSolved
14.11.2022 10:31:35 Marcus
NotSolved
14.11.2022 07:10:34 Mase
NotSolved

Ansicht des Beitrags:
Von:
Marcus
Datum:
14.11.2022 00:21:24
Views:
123
Rating: Antwort:
  Ja
Thema:
Tabellen aus xlsx

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellen aus xlsx
14.11.2022 00:21:24 Marcus
NotSolved
14.11.2022 06:55:23 ralf_b
NotSolved
14.11.2022 10:31:35 Marcus
NotSolved
14.11.2022 07:10:34 Mase
NotSolved