Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > #Wert!
Normale Version: #Wert!
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

LindaB

27.10.2018, 13:03
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

27.10.2018, 13:14
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

27.10.2018, 13:18
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

27.10.2018, 13:47
TOP vielen Vielen Dank ;);)
Clever-Excel-Forum > Office-Anwendungen > Excel > #Wert!