[VBA] Zoekfunctie in Macro in excel, krijg steeds een meldin

[Verwijderd]

Hoi,

Ik ben bezig met een prijzenprogramma te schrijven in excel.
Ik heb 2 bladen in excel met artikellen.
Een kleine lijst en een grotere lijst. Maar met mijn kleine lijst krijg ik geen ean code's bij. In de grotere lijst staan die er wel bij. Nu wil ik in excel een macro maken die een artikelnummer die in de kleine lijst staat gaat zoeken in de grotere lijst.
Nu zit ik met het probleem dat soms niet alles gevonden word. Nu heb ik dit al gemaakt:
Maar wanneer ik een waarde zoek die niet wordt gevonden krijg ik in mijn macro meteen een foutmelding met:
Object variabele With is niet ingesteld!
En deze melding krijg ik alleen wanneer excel de waarde niet kan vinden.
En ik wil dat wanneer hij hem niet kan vinden gewoon niets doet en gewoon verder gaat:S
HELP!!!


Sub EAN_Importeren()


For b = 2 To 3000

Sheets("Totale lijst Incl EAN").Select
Range("A" & b).Select
w = ActiveCell.FormulaR1C1

Sheets("Basprijslijst origineel").Select
Range("A1").Select

Q = Cells.Find(What:=w).Activate


Sheets("Totale lijst Incl EAN").Select
Range("G" & b).Select
ActiveCell.FormulaR1C1 = Q


Next b
Sheets("Totale lijst Incl EAN").Select
End Sub

[Creepy]

1 topic is wel genoeg toch? Zie ook [VBA] Zoekfunctie in Macro in excel, krijg steeds een meldin.

Daarnaast staat het topic ook niet op de juiste plek zoals je in Waar hoort mijn topic? had kunnen lezen. Open nu niet opnieuw een topic op de juiste plek maar wacht rustig af. Een topic kan namelijk worden verplaatst indien dat nodig is