Avatar billede hubertus Seniormester
27. juli 2015 - 15:44 Der er 12 kommentarer og
1 løsning

errorhandling ved opslag

Jeg er løbet sur I nedenstående og har brug for hjælp.

Min kodelinje ser ud som følger:
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Artikler!R1C1:R653C,4,false)"

hvis den pågældende artikkel ikke finds, så får jeg: #N/A,

Jeg ønsker I stedet en fejltekst: f.eks. at der star finds ikke I cellen.

linjen er den del af et større complex, så derfor er formen: ActiveCell.FormulaR1C1 nødvendig.
27. juli 2015 - 15:47 #1
Den kan skrues sammen efter fælgende princip (ret selv til så formatet passer):

HVIS(ER.FEJL('din opslags-funktion';"Findes ikke!";'din opslagsfunktion')
Avatar billede store-morten Ekspert
27. juli 2015 - 16:08 #2
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[16383],Artikler!R1C1:R653C,4,FALSE),""Findes ikke"")"
Avatar billede hubertus Seniormester
27. juli 2015 - 16:14 #3
Det var hurtigt.

da jeg får fejl ved indtastningen, kan du så give mig hele linjen på engelsk?
Avatar billede store-morten Ekspert
27. juli 2015 - 16:39 #4
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-1],Artikler!R1C1:R653C,4,FALSE),""Findes ikke"")"
Avatar billede hubertus Seniormester
27. juli 2015 - 16:42 #5
Jeg får følgende fejl

method "FormulaR1C1" of object "Range" failed
Avatar billede store-morten Ekspert
27. juli 2015 - 16:48 #6
Kan du ikke fortæller hvilken celler der bruges?
Jeg roder hvis rund i R1C1

Opslags celle:
Opslagsområde:
Avatar billede store-morten Ekspert
27. juli 2015 - 17:01 #7
Evt. hvilken celle formlen indsættes i
Avatar billede hubertus Seniormester
27. juli 2015 - 18:16 #8
jeg benytter et loop, der indsætter formlen I kolonne E.
Opslages laves i fanen: artikler i kolonne  A, og returnere værdien i kolonne d.
Avatar billede store-morten Ekspert
27. juli 2015 - 19:11 #9
Virker #4 ikke?

Opslags celle, findes 1 celle til venstre,
Opslagsområde, Artikler!$A$1:G$653
Avatar billede hubertus Seniormester
27. juli 2015 - 20:00 #10
nej desværre. resultatet er #5 Method "FormulaR1C1" of object "Range" failed
Avatar billede store-morten Ekspert
27. juli 2015 - 20:35 #11
Også når du køre den isoleret?

Sub test()
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-1],Artikler!R1C1:R653C,4,FALSE),""Findes ikke"")"
End Sub

Virker fint hos mig :-)
Avatar billede hubertus Seniormester
27. juli 2015 - 22:31 #12
Den kører fint nu, så mange tak for hjælpen :0))  Lægger du et svar?
Avatar billede store-morten Ekspert
27. juli 2015 - 22:41 #13
Det var godt :-) Velbekomme
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester