Hallo zusammen,
ich kann nicht nachvollziehen, warum dieser Fehler kommt. Sowohl X, als auch die Spalte Gehalt sind als Double deiniert.
Wo ist der Fehler in ......Where [Mitarbeiter.Gehalt] > '" & X & "' ?
Wenn ich statt des Parameters X eine feste Zahl reinschreibe, funktioniert alles einwandfrei.
Vielen Dank!
Der vollständige Code lautet:
Sub ExctractData()
Dim CS As String
Dim X As Double
Dim db As DAO.Database
Dim rst As DAO.Recordset
X = Range("E1").Value
CS = "C:\...\....\Test.accdb"
Set db = DBEngine.OpenDatabase(CS)
Set rst = db.OpenRecordset("Select * From Mitarbeiter Where [Mitarbeiter.Gehalt] > '" & X & "'")
ActiveWorkbook.Sheets("Sheet1").Select
Range("A1:B6").Select
Selection.Clear
i = 0
Do While Not rst.EOF
On Error Resume Next
i = i + 1
Cells(i, 1) = rst![Name]
Cells(i, 2) = rst![Gehalt]
rst.MoveNext
Loop
End Sub
|