#Wert!

[LindaB]

Hallo,

Ich möchte gerne den Sverweis mittels VBA lösen:

Code:

Function Bezeichnung(Kodex)
   Dim Bez

   
   Bez = WorksheetFunction.VLookup(Kodex, Range("VorhängeMatrix"), 2)

   Bezeichnung = Bez



   

End Function

Mein Problem:
es kann das Suchkriterium auch "" sein, 
dann gibt mir die Formel : "#Wert!" zurück 
was ich aber nicht möchte, 

denn wenn das Suchkriterium leer ist, sollte Bezeichnung auch leer sein


wie kann ich das lösen, ich komm nicht drauf =(


Vielen Dank,
Grüße

[Case]

Hallo Linda, :19:

probiere es mal so: :21:

Code:

Dim Bez
On Error GoTo Fin
Bez = WorksheetFunction.VLookup(Kodex, Range("VorhängeMatrix"), 2)
Bezeichnung = Bez
Fin:
If Err.Number <> 0 Then Bezeichnung = ""

[Kuwer]

Hallo,

Function Bezeichnung(Kodex)

 If Len(Kodex) Then

    Bezeichnung = Applikation.VLookup(Kodex, Range("VorhängeMatrix"), 2)

Else

   Bezeichnung =""

End If

End Function

Gruß Uwe

[LindaB]

TOP vielen Vielen Dank ;);)