Vlookup

[Oude leerling]

Ik doe wat fout maar kan niet vinden wat.
Wie helpt mij?
Wat doe ik fout in de onderstaande code

Sub Macro1()

Sheets("Blad1").Select
Range("A2") = Application.VLookup(G2, Range("C2:E10"), 2, False)

End Sub

 

[VenA]

Wat doe ik fout

Nogal veel

- Code tussen codetags mag inmiddels bekend zijn;
- Een uitleg van het doel van het geheel waar je mee bezig bent;
- Probeer eens wat te leren van alles wat je al aangereikt is!
- Ik kan nog wel even doorgaan.:d

Sub VenA()
Dim r As Range
  Set r = Columns(3).Find([g2], , xlValues)
  If Not r Is Nothing Then [A2] = Range(r.Address).Offset(, 2)
End Sub

 

[HSV]

Het blauwe gedeelte mis ik erin Jaap; daar zit je fout.

Range("A2") = Application.VLookup([COLOR=#0000ff]Range("[/COLOR]g2[COLOR=#0000ff]")[/COLOR], Range("C2:E10"), 2, False)

 

[Oude leerling]

VenA , snap het.
Ik wou het eens oplossen met "vlookup"

HSV , dat was inderdaad wat ik zocht.
Stomme fout. Je moet natuurlijk altijd Range ervoor zetten.

Allebei bedankt voor de hulp

Jaap