gegevens in teksvak opvullen op basis van een gefilterde combobox...

[blueberry013]

Hallo,

Ik zit met een probleem... Met onderstaande code filter ik mijn tabel en vul ik combobox orderartikelcode. Nu zou in een tekstvak "orderartikel"
een waarde moeten hebben uit dezelfde gegevenstabel, maar de kolom ernaast. Code hiervoor was

orderartikel.Value = Sheets("Artikel").Cells(orderartikel.ListIndex + 4, 3)

Probleem is nu dat hij daar niet gefilterd heeft en de waarde uit de eerste rij haalt.
Kan iemand me hier een oplossing voor geven?

Alvast bedankt.

Sub filterartikel1()

Application.ScreenUpdating = False
    
    naam2 = FormOrder.orderklant.Value
        
    Worksheets("Artikel").ListObjects("Gegevenstabel").Range.AutoFilter Field:=1, _
        Criteria1:=naam2
    
    For Each cell In Range("Gegevenstabel[[Artikelcode]]")
        If Not cell.Rows.Hidden Then
            FormOrder.orderartikelcode.AddItem cell.Value
        End If
        Lastrow = Thisrow
    Next cell
       
    Application.ScreenUpdating = True
    
End Sub

 

[Warme bakkertje]

orderartikel.Value = Sheets("Artikel").Columns(3).Find(orderartikelcode.Value, , xlValues, xlWhole).Offset(, 1).Value