Office: (Office 2007) Inhalt einer Zelle als Kriterium in MS Query

Hallo zusammen,

ich stehe vor dem Problem, Daten vom SQL-Server auf einem Excel-Sheet anzeigen zu lassen. Das gelingt mir prinzipiell über MS Query, wobei ich die GESAMTE Tabelle einlese oder manuell innerhalb MS Query Kriterien angebe wie
(project.project_number='01par')

Sinn meiner Abfrage soll es aber sein, die Daten abhängig vom Inhalt einer Zelle auf dem Excel-Sheet zu filtern. In Zelle B3 steht also z.B. 01par

Je nachdem, welchen Wert ich dann in Zelle B3 eintrage (über ein DropDownFeld), sollen die Daten vom Server aktualisiert und angezeigt werden.

Versucht habe ich es innerhalb von MS Query bereits mit:
Tabelle1!$B$3, was zu einem Syntaxfehler geführt hat.

Ich hoffe, ich konnte mich mit meinen geringen Excel-Kenntnissen halbwegs verständlich ausdrücken.

Viele Grüße,
Axel

:)

 

Hallo

Beispielabfrage
Das Kriterium steht in C1

"SELECT Bereich.Kostenstelle, Bereich.Kostenart, Bereich.Betrag" & Chr(13) & "" & Chr(10) & "FROM `D:\Rainer\DB`.Bereich Bereich" & Chr(13) & "" & Chr(10) & "WHERE (Bereich.Kostenstelle=" & Range("C1") & "))

 

Hallo

habe den Hinweis von IRamses dankbar aufgenommen und versucht umzusetzen. Um es noch einmal deutlich zu machen: ich habe bei meinen Versuchen bisher keinen VBA-Code verwendet, sondern lediglich unter Daten/Externe Daten importieren eine neue Abfrage erstellt, die sich auf eine SQL-Server-Tabelle als Basis bezieht. Man bekommt dann ja mit Microsoft Query die Möglichkeit, ähnlich wie in Access, Felder auszuwählen und Filterkriterien anzugeben. Genau an diesem Punkt versuche ich nun, IRamses' Idee umzusetzen. Der aus der graphisch zusammengeklickten Abfrage erzeugt SQL-String sieht nun folgendermaßen aus:

SELECT tblProjekte.ProjectID, tblProjekte.ProjektName, tblProjekte.ProjektLeiter, tblProjekte.Projektbeschreibung
FROM microm_test.dbo.tblProjekte tblProjekte
WHERE (tblProjekte.ProjectID=' & range(''ODBC-Import!$C$4") & ')

Leider wird mir immer noch kein Datensatz angezeigt, obwohl es einen Match zum Feldinhalt von C4 auf dem Worksheet ODBC-Import gibt.

Was mache ich hier falsch!?
Bin für jeden Hinweis dankbar...
Gruß, Axel

 

Hallo

Betrachte dir nochmal GENAU die Syntax wie ich sie geschrieben habe.
Wenn du mit VBA auf eine andere Tabelle verweist, muss es heissen

" & Worksheets("ODBC-Abfrage").Range("C4") & "

 

Hallo nochmal,

ich habe den Code aus dem letzten Vorschlag 1:1 eingefügt, was dann zu einem Syntax-Error geführt hat. Hat es evtl. etwas mit den unterschiedlichen Hochkommas zu tun (einfach, doppelt). Mein SQL-String, den ich im Query-Fenster sehe beginnt ja nicht, wie sonst in VBA üblich als Stringkette mit Anführungszeichen, sondern direkt mit Select...

Habe mal ein Bild angehängt, auf welchem mein derzeitiger Status zu erkennen ist. Vielleicht hilft das ja bei der Lösung des Problems.

Ich bin mit meinem Latein für heute am Ende!

Gruß Axel (und vielen Dank für die Anregungen bis jetzt)

 

Hallo

du musst bloss meinen ersten Beitrag richtig lesen.

Speziell die Anordnung der Anführungszeichen !!

Zeichne die Abfrage in einem Makro, weiss dieses Makro einer Schalftfläche aus der Symbolleiste Formular zu und schon rutscht die ganze Sache automatisch :-)

An die Abfrage wird aus dem Makro heraus ein String übergeben:

"SQL-Select...." & Worksheets("Tabelle").Range("C4") & ")"

und den musst du bloss zusammenbauen.

Anstelle deines gesuchten Wertes den du mit der Makroaufzeichnung übergibst, musst du nur die Anweisung auf den Zellbereich geben. Wenn es die aktuelle Tabelle ist, dann reicht auch

"SQL-Select...." & Range("C4") & ")"

So sieht es vorher aus in meinem Beispiel

	A	B	C	D
1	3
2
3
4
5	Kostenstelle	Kostenart	Betrag
6	3	3	12
7

und so danach

	A	B	C	D
1	1
2
3
4
5	Kostenstelle	Kostenart	Betrag
6	1	1	10
7	1	2	11
8	1	4	13
9

Dazu wurde dieses Makro aufgezeichnet und das Abfragekriterum auf Zelle "A1" angepasst

Code:

Hoffe das hilft

Schau dir speziell den Select-String an

Gruss Rainer

 

Hallo zusammen,

vielen vielen Dank für die Anregungen und Hilfen. Das Aufzeichnen von Makros ist wirklich eine wunderbare Idee gewesen, schnell an den korrekten Code mit allen Feineinstellungen zu kommen. Diese Möglichkeit werde ich in Zukunft häufiger nutzen. Da war ich wohl mit meinem Screenshot-Status auf der falschen Baustelle...

Hier nun mein Code, der funktioniert:

Code: