Moin,

war etwas im stress gestern.

Fehlermeldung: Laufzeitfehler: 1004 (Allgemeiner ODBC-Fehler).

Mein Code:

Sub TEST()

Dim qt As QueryTable
Dim Eingabe As String
Dim Fehler As String

Fehler = "Leer nicht erlaubt"
Eingabe = InputBox("Eingeben:")

If Eingabe = "" Then GoTo ERRORHANDLER
ConnectionTimeout = 6000
AsyncRetryInterval = 6000


sqlstring = "SELECT * FROM bbb, aaa left outer join ccc on SIT=SIT and DEP=DEP and NENP =NENP, dddd WHERE E1NENT = NENT and SIT = SIT and DEP = DEP and BCHE = BCHE and SIT=SIT and DEP=DEP and NENP = NENP and SIT= 'FF' and DEP ='LEICA'and E3NEXT like ('%'||" + Eingabe + "||'%')"

connstring = _
"ODBC;DSN=xxx;UID=USERID;PWD=Pass;Database=96Sales"

With ActiveSheet.QueryTables.Add(Connection:=connstring , _
Destination:=Range("E1"), Sql:=sqlstring)
.Refresh

End With

Exit Sub
ERRORHANDLER:
MsgBox Fehler

End Sub

SQL funktioniert in der SQL umgebung ohne Problem, wenn ich diese VBA laufen lasse und mir den sqlstring überwache sehe ich leider nicht alles in dem string!