ich bin bei einer Abfrage in Excel auf ein Problem gestoßen, dass ich nicht lösen kann. Aus diesem Grund ersuche ich euch um eure Hilfe.
Es geht um eine Query mittels der ich Daten aus einer Datei auslese je nachdem welches Datum in einer Listbox ausgewählt wurde.
Diese Query möchte ich nun mit diesem Datum aufrufen, leider funkt es nicht...anbei der Code, ich hoffe dass ihr mir helfen könnt.
Vorab schon ein rießen Dankeschön,
LG Andreas:-)
Dim PMXDatum
PMXDatum = Range("PMXSMSDatum")
Sheets("PMX").Select
With Selection.QueryTable
.Connection = _
"ODBC;DSN=dBASE-Dateien;DefaultDir=C:\SMS\SMSDATA;DriverId=533;MaxBufferSize=2048;PageTimeout=5;"
.CommandText = Array( _
"SELECT CSHPMXP0.PMXDAY, CSHPMXP0.PMXMIC, CSHPMXP0.PMXUSI, CSHPMXP0.PMXUSO" & Chr(13) & "" & Chr(10) & "FROM CSHPMXP0 CSHPMXP0" & Chr(13) & "" & Chr(10) & "WHERE (CSHPMXP0.PMXDAY=" & PMXDatum & ")" & Chr(13) & "" & Chr(10) & "ORDER BY CSHPMXP0.PMXMIC" _
)
.Refresh BackgroundQuery:=False
End With