Formule vert.zoeken koppelen aan een tekst box activex control in exel 2013

[Wuppie1]

Ik kom er niet uit ik heb in een projectoverzicht een tekst box (ActiveX control) gemaakt, nu wil ik middels de formule =VERT.ZOEKEN(B4;'Projecten tbv opmerkingen'!A2:B1000;2;0) de tekst tonen in dit vak. Wie heeft voor mij de vba code of oplossing? Voorbeeld bestand bijgevoegd, hetzelfde resultaat wil ik in de text box met scrol functie hebben als in kader met de formule vert. zoeken. In het originele bestand worden de projectnummers weergegeven dmv een keuzelijst.

 

[Cobbe]

Probeer deze eens:

Private Sub Worksheet_Change(ByVal Target As Range)
 With Sheets("Proj. overzicht")
  If Not Intersect(Target, .Range("B4")) Is Nothing Then
   .TextBox1 = Application.WorksheetFunction.VLookup(.Range("B4"), Sheets("Projecten tbv opmerkingen").Range("A:B"), 2, 0)
  End If
 End With
End Sub

 

[Wuppie1]

Super werkt perfect !!