[vb] waarde zoeken en vervangen in [excel]

[Verwijderd]

Ik gebruik onderstaand stukje code om in een excel sheet een waarde te zoeken en als hij gevonden is te vervangen voor gegevens uit de database.
Dit werkt uitstekend maar als er een waarde niet word gevonden dan krijg ik een foutmelding.

Weet iemand hoe je kan zorgen dat hij naar de volgende regel in het script gaat zonder de boel af te breken ?

Ik heb gezocht op Got, Msdn en Google maar niks gevonden.

code:

moSheet.Cells.Find("lev_naam").Value = (Trim(txt))

[ Voor 11% gewijzigd door Verwijderd op 21-01-2004 21:41 . Reden: Verkeerd geformuleerd ]

[DeverauX]

[google=visual basic error handling]

[Verwijderd]

DeverauX schreef op 21 januari 2004 @ 17:45:
[google=visual basic error handling]

Ik heb gezocht op Got, Msdn en Google maar niks gevonden

[BtM909]

Zoek eens in de VBA-help naar onError

[IFASS]

Ik neem aan dat je dit in visual basic doet?

(* IFASS heeft vermoeden dat hij iets over het hoofd ziet of iets doms gaat zeggen)

probeer dit eens:

code:

On error goto Foutexcel   *dat "Foutexcel" mag je zelf naam geven

*/ dan onderaan de sub, boven end sub

Foutexcel

Msgbox enz...

hoop dat dit iets oplost of...

[Verwijderd]

Dit lost wel iets van het probleem op maar.
Ik heb een excel sheet met voorgedefinieerde waardes waar andere waardes ingeschreven worden vanuit een database.
Als 1 van die waardes niet bestaat wil ik dat hij doorgaat naar de volgende regel in het script. Bepaalde dingen horen niet op bepaalde templates te verschijnen

Dus als hij bijvoorbeeld de postcode niet moet weergeven laat ik op de template (het excel sheet) de waarde post_postcode weg en zou hij door moeten gaan met post_plaats ipv het script af te breken met de manier zoals jij beschreef.

Ik hoop dat het wat duidelijk is

code:

xt = rsleveranciers!lev_post_adres
moSheet.Cells.Find("post_adres").Value = (Trim(txt))
txt = rsleveranciers!lev_post_postcode
moSheet.Cells.Find("post_postcode").Value = (Trim(txt))
txt = rsleveranciers!lev_post_plaats
moSheet.Cells.Find("post_plaats").Value = (Trim(txt))
txt = rsleveranciers!lev_post_land
moSheet.Cells.Find("post_land").Value = (Trim(txt))

[Verwijderd]

De oplossing is:

code:

On Error Resume Next

Het simpelste schijnt prima te werken.

Hij kan dicht

[ Voor 9% gewijzigd door Verwijderd op 22-01-2004 00:38 . Reden: hij kan dicht ]

[IFASS]

Verwijderd schreef op 21 januari 2004 @ 21:45:
De oplossing is:

code:

On Error Resume Next

Het simpelste schijnt prima te werken.

Hij kan dicht

Ja, okee, dat had ik ook kunnen zeggen. maar je vroeg naar een nette afhandeling met een berichtje. dit werkt natuurlijk wel, maar echt netjes is het niet.

maar aangezien deze draad dicht gaat... suc6 verder

[Verwijderd]

Ik had de vraag verkeerd geformuleerd. Ik wou eerst namelijk een berichtje maar later bedacht ik me dat als die waarde niet voorkomt wil de gebruiker deze waarde mischien niet weergeven. Vandaar dat het op deze manier prima werkt. Die code van jouw deed het prima hoor met een berichtje maar was toch niet helemaal wat ik zocht. Thanx