Die VLookup Eigenschaft kann nicht zugeordnet werden

[perostojkov]

Hallo,
ich habe wenig VBA Ahnung, kann mir bitte jemand sagen was ich falsch mache?

Wenn ich mein Makro test per Button starte funktioniert es.
Wenn ich es mit Worksheet_Change starten möchte, bekomme ich Fehlermeldung   Die VLookup Eigenschaft kann nicht zugeordnet werden


Sub test()
Dim Employee_Name As Integer
Dim Lookup_Range As Range
Dim Ergebnis As Integer
Employee_Name = ActiveCell
Set Lookup_Range = Worksheets("Tabelle1").Range("A2:D9")
Ergebnis = Application.WorksheetFunction.VLookup(Employee_Name, Lookup_Range, 2, False)
MsgBox Ergebnis
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j2:j7,j9:j13,j15:j20,j23:j26,j29:j33")) Is Nothing Then
'MsgBox "ok"
Call test
End If
End Sub

LG perostojkov

[perostojkov]

Es hat sich erledigt, habe ne andere Lösung gefunden

Gruß perostojkov