Hallo Gunnar,
beim googeln auf folgendes Anstoss gestoßen
Application.WorksheetFunction.VLookup("123456", Sheets("Spider").[A1:E3000], 5, False)
ersetzen durch
Application.VLookup("123456", Sheets("Spider").[A1:E3000], 5, False)
und bei MSDN hab ich folgendes gefunden
Dim Arg1 As Object
Dim Arg2 As Object
Dim Arg3 As Object
Dim Arg4 As Object
Dim returnValue As Object
Dim worksheetFunction1 As WorksheetFunction
returnValue = worksheetFunction1.VLookup(Arg1, Arg2, Arg3, Arg4)
da sind alle Parameter als Objekte definiert, vieleicht kann man keine Variablen als interger oder String übergeben, hab ich aber auch nicht getestet.
Gruß Detlev
|