Listbox vullen via textbox dewelke beiden op een Userform staan

[qelvin]

Op het forum vond ik volgende:

Private Sub txtOmschrijving_Change()

Dim strZoek As String
Dim strOmschrijving As Variant

strZoek = txtOmschrijving.Value
lstOmschrijvingen.Clear

If strZoek > "" Then
    ReDim strOmschrijving(0 To Sheet2.UsedRange.Rows.Count - 1)
    
    For i = 1 To Sheet2.UsedRange.Rows.Count
        strOmschrijving(i - 1) = Sheet2.Cells(i, 2).Text
    Next i
    
    lstOmschrijvingen.List = VBA.Strings.Filter(strOmschrijving, strZoek, True)
End If

End Sub

Op Sheet1 staan een ListBox en een TextBox. Op Sheet2 staat de database (kolom B bevat de artikelomschrijvingen)
Deze code werkt perfect als de TextBox en ListBox als besturingselement op een werkblad staan . Wat ik echter zou willen is een dergelijke code maar de ListBox en TextBox staan op een UserForm.
Kan iemand me helpen?

 

[Warme bakkertje]

Noem de objecten in je Userform hetzelfde als in de macro en je kan de code letterlijk in je Userform gebruiken.