Funktion som VLOOKUP, der returnerer 'blank' ved fejl.
Der er ofte en del bøvl forbundet med at benytte vlookup,da den returner en fejl, når den ikke kan finde hvad den
søger.
Det kan løses med if sætninger:
eks if(ISERROR(VLOOKUP(J4;B:C;2;0));"";VLOOKUP(J4;B:C;2;0))
Med lidt mere komplicerede if sætninger kommer man nemt op på
2-3 linier og mister overskulgheden.
Jeg har derfor forsøgt at lave en funktion, der virker som
vlookup, men returnerer "" ved fejl.
Imidlertid kan jeg ikke få det til at virke, da IsError ikke
returner en fejl på variablen. Vfound antager derfor aldrig
værdien "".
Hvem har et godt forslag til hvordan jeg skal læse på
variablen vFound for at finde ud af om vlookup gik godt?
SCRIPT
-----------------------------------------------------------------
Function NNA(Look_Value As Variant, Tble_Array As Range, _
Col_num As Integer, Optional Range_look As Boolean)
'''''''''''''''''''''''''''''''''''''''''''''''''
'Written by Lasse
'Use as VLOOKUP, but returns "" when error
'''''''''''''''''''''''''''''''''''''''''''''''''
Dim vFound
vFound = WorksheetFunction.VLookup _
(Look_Value, Tble_Array, _
Col_num, Range_look)
If IsError(vFound) Then vFound = ""
Set Tble_Array = Nothing
NNA = vFound
End Function
-----------------------------------------------------------------
Med venlig hilsen Lasse