Hallo sehr geerte Team,
Ich treffe ein problem mit Vlookup Funktion auf MS Office 2013
Error Message 1004 unable to get the Vlookup Property of the Worksheet Function class
ich habe die Funktion Application.WorksheetFunction.Vlookup genuzt
einfacher und effizienter als nutzen While oder Do loop Funktionen
darunten mein Programm
Option Explicit
Sub Vlookup1()
On Error Resume Next
Dim ligne As Integer
Dim ValeurChercher As String
Dim Result As String
ligne = 3
ValeurChercher = Sheets("BOM").Cells(ligne, 1).Value
Result = Sheets("BOM").Cells(ligne, 31).Value
Result = Application.WorksheetFunction.Vlookup(ValeurChercher, Sheets("BOM").Range("A4:AX10000"), 33, 0)
If Err.Number <> 0 Then
Err.Clear
Else
Result = Application.WorksheetFunction.Vlookup(Trim(ValeurChercher), Sheets("BOM").Range("A4:AX10000"), 33, 0)
End If
End Sub
vielen dank für Ihre Hilfe
Mit Freundlichen Grüssen
Jean-Baptiste VAHE
vahjeanbaptiste@yahoo.fr
|