een nummer omzetten in een naam

[ewh]

we hebben op blad1 in kolom A een aantal nummers staan ( persoonsnummers )
op blad "opzichter"staan in kolom A alle persoonsnummers met in kolom B de natuurlijke naam

we willen met vba dat op blad1 de nummers omgezet worden in de natuurlijke namen

wie kan helpen in de bijlage is een proef bestandje mee gestuurd

 

[edmoor]

Deze in Blad1, cel B5:
=VERT.ZOEKEN(A5;opzichter!$A$2:$B$14;2;ONWAAR)

Edit:
Over de VBA wens heen gelezen.
Die heeft Cobbe al geplaatst.

 

[Cobbe]

Probeer deze eens:

Sub cobbe()
On Error GoTo oeps
For Each cl In Range("A5:A" & Range("A" & Rows.Count).End(xlUp).Row)
 naam = Sheets("opzichter").Range("A:A").Find(cl).Offset(, 1)
 Cells(cl.Row, 1) = naam
Next
oeps:
End Sub

 

[ewh]

mannen bedankt voor de zeer snelle support , ga er gelijk mee aan de gang

bedankt

 

[Gijsbert1]

Of deze:

Sub Gijsbert()
Dim opzichter_id As Integer

opzichter_id = ActiveCell.Value
ActiveCell.FormulaR1C1 = "=VLOOKUP(" & opzichter_id & ",opzichter!R2C1:R14C2,2,FALSE)"
ActiveCell.Select
Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Deze zet alleen de geselecteerde cel om, maar werkt op iedere invoer op elke plaats