Hallo zusammen,

ch habe ein VB-Script mit einer MS-Query (SQL-) Abfrage (aus einer Makroaufzeichnung). Dort will ich in der SELECT- Abfrage im Bereich der Bedingung einen Wert aus einer Excel-Zelle übergeben also z.B.:

SELECT wert FROM tabelle WHERE wert = A1

Excel macht bei der Makro-Aufzeichnung den Ausdruck dann ein wenig anders:

"SELECT WERT" _
& Chr(13) & "" & Chr(10) & "FROM TABELLE" & Chr(13) & "" & Chr(10) & _
"WHERE (WERT=12345)"

Dabei wäre A1 mein Wert aus einer Excel-Zelle. Wenn ich einen festen Wert (z.B. 12345)eintrage, funktioniert natürlich diese Abfrage. Hat jemand eine Ahnung, wie ich es hinbekomme, dass man dort einen Zellenwert übergeben kann?

Ich habe auch schon versucht, den Zellenwert erst einer Variable zu übergeben:

Dim wert1 as String
wert1 = Range ("A1").Value
SELECT wert FROM tabelle WHERE wert = wert1

Das funktioniert leider auch nicht. Ich denke mal, dass durch eine entsprechende Syntax der Abfrage klar gemacht werden muss, dass wert1 nicht der String "wert1" sondern die Variable wert1 mit einem entsprechenden Inhalt ist.

Ich hoffe, ihr könnt mir helfen :)