Ich habe ein Problem dass ich (hoffentlich noch) nicht lösen kann.
Wie schaffe ich es bei einer Abfrage von externen Daten meinen Bereich als variable eingeben zu können.
Für Hilfe wäre ich sehr dankbar
mein Modul:
Sub Test()
Dim sql As String
sql = "SELECT Projekttest.Projektnummer, Projekttest.Projektbeginn"
sql = sql & " FROM `C:\Testdatenbank`.Projekttest Projekttest"
sql = sql & " WHERE (Projekttest.Projektbeginn>{ts '2003-01-01 00:00:00'} And Projekttest.Projektbeginn<{ts '2004-01-01 00:00:00'})"
Range("K1").Select
With Selection.QueryTable
.Connection = _
"ODBC;DSN=Projekte;DBQ=C:\Testdatenbank.mdb;DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"
.sql = sql
.Refresh True
End With
End Sub
Die Bereich < und > würde ich gerne als eine Variable eingeben können.
Danke
AndiW