moeite met index en vergelijken

[mnemonic]

Hallo,
Ik ben bezig om een database op te bouwen maar loop nu vast.
In het test bestand zie je een blad artikellijst en een blad werkbon.
Nu wil ik door middel van userform2 zoeken in de artikellijst op artikelcode en de uitslag moet dan in TbOmschrijving komen (dit met de index en vergelijken functie).
En hier loop ik vast.
In het blad Artikellijst heb ik de code in f5 gezet met als invoer E5 (artikelcode) tot zover gaat alles goed.
Maar nu moet ik het in vba schrijven en dat lukt mij niet
Ik heb zelf ook een macro gemaakt om eens te kijken hoe Excel dit doet (macro1) maar daar raak ik de weg kwijt.
Wie o wie kan en wil mij hier bij helpen?
Bvd Jan

 

[SjonR]

zo ?

Private Sub TbArtikelcode1_AfterUpdate()
    With Sheets("Artikellijst")
        If Application.CountIf(.Columns(4), TbArtikelcode1.Value) > 0 Then
            TbOmschrijving1.Value = .Columns(4).Find(TbArtikelcode1.Value).Offset(, -1).Value
        End If
    End With
End Sub

 

[mnemonic]

Zo JonR wat ben jij snel.
Even een kop koffie halen en de oplossing staat er:thumb:
Hier ben ik erg blij mee.
Bedankt voor je super snelle reactie

 

[SjonR]

In plaats van meedere textboxen kan je ook een Combobox of Listbox gebruiken met meerdere kolommen.

 

[mnemonic]

Dat klopt daar ga ik nu ook mee aan de gang.
Ik wilde eerst een voorbeeld vragen om eens te zien hoe de formule weggeschreven wordt.
Nu ga ik deze eens bekijken en zo proberen aan te passen in mijn database.
Ik moet er nl ook van leren toch.
Mocht ik er niet uitkomen dan hoop ik dat je mij later een keer weer wilt helpen.
Bedankt JonR:thumb: