Op zoek macro voor verwijzing naar 0

[idarkreaver]

Hallo,

Ik heb nogmaals jullie hulp nodig want ik zie het niet.

In sheet1 heb ik een lijst met de data (nummers) die een waarde hebben in kolom "C". Maar ik moet een manier vinden dat hij zoekt naar de lijst van sheet 2 en de aantallen van sheet1 dan op 0 zet.

Al deze nummers moeten een 0 waarden weergeven in kolom "C" door middel van een macro.
11111
22222
33333
44444
55555

Voorbeeld in attach.
Kan dat?

Grtjs IDK.

 

[JEC.]

Bijvoorbeeld

Sub j()
 jv = Sheets(2).Range("C5:C9")
   For i = 1 To UBound(jv)
     a = Application.Match(jv(i, 1), Columns(2), 0)
      If IsNumeric(a) Then Cells(a, 3).Value = 0
   Next
End Sub

 

[idarkreaver]

Ja, dankje! Geweldig.

 

[idarkreaver]

Hello,

Na een kleine test ben ik vergeten te melden dat er soms nummers herhaald kunnen worden.
Ik heb een nieuwe voorbeeld toegevoegd.

 

[JEC.]

Een alternatief met Names

Sub j2()
With Sheets(1)
    .Range("B1:B200").Name = "Zoekwaarde"
     Sheets(2).Range("C1:C200").Name = "Zoekbereik"
     [Zoekwaarde].Offset(, 1) = [If(Isnumber(Match(Zoekwaarde,Zoekbereik,0)),0,If(Offset(Zoekwaarde,,1)<>"",Offset(Zoekwaarde,,1),""))]
End With
End Sub

 

[idarkreaver]

Kan het zijn dat het bij mij niet werkt omdat ik een engelse office heb?

 

[JEC.]

Nee ik heb nog een kleine aanpassing gedaan, probeer het nog eens

 

[idarkreaver]

Het werkt. Enorm bedankt.

 

[JEC.]

Mooizo, succes!:thumb:

 

[HSV]

of:

 [Zoekwaarde].Offset(, 1) = [if(countif(Zoekbereik,zoekwaarde)>0,0,if(zoekwaarde="","",offset(zoekwaarde,,1)))]