Vertikaal zoeken zonder knop

[maartenmars]

Zou iemand misschien een code weten waarbij ik verticaal kan zoeken via VBA? De bedoeling is dat mensen zelf de boekingsnummers invoeren. Wanneer ze een bekend boekingsnummer invoeren bij Excel moet automatisch de omschrijving van het nummer in 2 kolommen naar rechts staan. En daardoor heb je te maken met zeker 40 regels.

Weet iemand hier een code voor?

 

[snb]

Maarten,

Naar wie van de gemeente Almelo kan ik de faktuur sturen ?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Blad2.usedrange.Columns(1), Target) Is Nothing Then Target.Offset(, 2) = Blad1.usedrange.Columns(1).Find(Target).Offset(, 1)
End Sub

PS. ik zou iets voorzichtiger zijn met het plaatsen van bedrijfsgegevens op internet.