#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

[00202]

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 ;);)