Typen unverträglich nach Vlookup Abfrage

[Statler]

Hallo ich habe folgenden VBA Code:

DIM Ergebnis As Variant

Ergebnis = Application.VLookup(Sheets("Arbeitsliste").[Target.Row,3], Sheets("Bedarf").Range("C3:G100"), 4, False)
MsgBox (Ergebnis)

Der Sverweis soll also in meinem Sheet "Arbeitsliste" in der aktuellen Zeile und Spalte 3 nehmen und diesen Wert im Blatt "Bedarf" im Bereich C3 bis G100 suchen und das Ergebnis der 4. Spalte ausgeben.
So weit eigentlich Standard.
Aber bei der MsgBox(Ergebnis) kommt die Meldung "Typen unverträglich"


Weiß jemand woher die Meldung kommt?

Gruß
Statler

[00202]

Hallo,  

Code:

Ergebnis = Application.VLookup(Sheets("Arbeitsliste").Cells(ActiveCell.Row, 3), Sheets("Bedarf").Range("C3:G100"), 4, False)

[Statler]

Hallo Case,

danke - der Fehler ist aber geblieben. Es kommt noch immer genau die gleiche Meldung :(
Noch eine Idee?

Gruß
Statler

[00202]

Hallo,  

also "Typen unverträglich" bekomme ich, wenn er keinen Wert findet (das kann man abfangen) - sonst funktioniert es.

[Statler]

Ahh, na klar. Das war´s.
Ich habe jetzt eine Suche auf einen Eintrag gemacht, dass wirklich vorhanden ist, dann funktioniert es.
Das ein nicht-finden zu einer Typenunverträglichkeit führt, habe ich nicht bedacht.

Danke für den Hinweis :)

Gruß
Statler