ich arbeite gerade an einem Programm welches Daten aus einer SQL-Tabelle ausliest und nur spezifische Reihen ausgeben soll. Hierbei nutze ich ein schon bestehendes Programm und passe den Code den Bedürfnissen an.
Der Anwender soll durch Eingabe einer Auftragsnummer, in eine Zelle, vorgeben welche Reihen ausgegeben werden.
Erfolgreicher Code-Ausschnitt:
Dim tasknr As String
' Dim endDate As String
tasknr = Range("Erstellung!e24").Value
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="ODBC;DSN=" & connection & ";" _
, Destination:=Range("$A$1")).QueryTable
.CommandText = "SELECT * FROM " & path & ".qualitaet WHERE Auftragsnummer = 31611601 "
.RowNumbers = False
...
Connection ist immer gleich, path wird im Vorfeld ermittelt.
Der oben abgebildete Code-Ausschnitt führt zum Erfolg, wie kann ich jedoch eine Variable anstelle der Ziffern einfügen.
Fehlerhafter Code-Ausschnitt:
Dim tasknr As String
' Dim endDate As String
tasknr = Range("Erstellung!e24").Value
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="ODBC;DSN=" & connection & ";" _
, Destination:=Range("$A$1")).QueryTable
.CommandText = "SELECT * FROM " & path & ".qualitaet WHERE Auftragsnummer = '" & tasknr & "'"
.RowNumbers = False
...
Diese ist eine von vielen Varianten die ich durch Recherchen im Internet gefunden habe aber leider nicht zum erwünschten Erfolg führen.
Viele Grüße
Nicolai