Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

#nb negeren bij uitvoering write macro

0 views
Skip to first unread message

karel

unread,
Feb 14, 2009, 11:11:01 AM2/14/09
to
Beste meedenkers ik heb het volgende stukje macro geschreven

'LOGBOEKSCHRIJVEN
Open "c:\Vrachtbrief-historie.log" For Append As #1
SCHRIJF = [c58].Value & "," & [c57].Value & ", afz: " & [c3].Value &
[c4].Value & ", aan: " & [c8].Value & "," & [c9].Value & ", door: " &
[f8].Value & "," & [f9].Value
Write #1, SCHRIJF
Close #1
'EINDE LOGBOEKSCHRIJVEN

Dit werkt tot zover goed, echter als in de cellen c4 ,c9 en of f9 de
foutwaarde #nb staat,dan loopt de macro vast.
dan komt fout 13 tijdens uitvoering typen komen niet overeen te voorschijn .

Heeft iemand een idee hoe kan ik dit ondervangen.

de foutwaarde #nb komt te voorschijn omdat de inhoud van de cel een uitkomst
is van een verticale zoekaktie.

jan

unread,
Feb 14, 2009, 11:40:41 AM2/14/09
to
karel,

Bijvoorbeeld:

i.p.v. [c4].value schrijf je

IIf(IsError([c4].Value), "fout", [c4].Value)

en dit uiteraard ook voor de andere mogelijke foutmelders.

Jan


karel

unread,
Feb 14, 2009, 12:08:05 PM2/14/09
to
Jan

Bedankt het werkt nu zoals ik wil

met
'On Error Resume Next

werd er totaal niks weggeschreven

'SCHRIJF = [c58].Value & "," & [c57].Value & ", afz: " & [c3].Value &

[c4].Value & ", aan: " & [c8].Value & "," & [c9].Value & ", door: " &
[f8].Value & "," & [f9].Value

is vervangen door


SCHRIJF = [c58].Value & "," & [c57].Value & ", afz: " & [c3].Value &

IIf(IsError([c4].Value), "fout", [c4].Value) & ", aan: " & [c8].Value & "," &
IIf(IsError([c9].Value), "fout", [c9].Value) & ", door: " & [f8].Value & ","
& IIf(IsError([f9].Value), "fout", [f9].Value)

en nu word er in elk geval iets weggeschreven

Thanks

"jan" schreef:

NOSPAM@skynet.be Cobbe

unread,
Feb 14, 2009, 4:09:13 PM2/14/09
to
Misschien is het handiger om de fout af te vangen in de
VERT.ZOEKEN-formule.

=ALS(isfout(formule);"niet gevonden";formule)

Cobbe

karel formuleerde op zaterdag :

karel

unread,
Feb 14, 2009, 6:05:01 PM2/14/09
to
Cobbe

Ook een uitsekend idee dan ben ik gelijk van de vervelende #nb melding af
als een verkeerde code invoerd

Bedankt voor de tip

"Cobbe" schreef:

Wigi

unread,
Feb 14, 2009, 6:57:01 PM2/14/09
to
"karel" wrote:

> Cobbe
>
> Ook een uitsekend idee dan ben ik gelijk van de vervelende #nb melding af
> als een verkeerde code invoerd
>
> Bedankt voor de tip

Klopt, alleen zit je wel met minder efficiënte formules nu.

--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music

karel

unread,
Feb 18, 2009, 5:16:16 PM2/18/09
to
En ook wat Wigi schrijft is weer waar ik houd het bij de aanpssing van de
macro code,want er zitten nog veel meer vert zoek opdrachten in de
werkmap,dan maar een enkele keer een #NB melding bij een verkeerde code
ingave.

"Wigi" schreef:

0 new messages