Getting used VBA on sheet transpond to a Form

[Dedeke]

Hi there,

Having an issue getting vba code (wich works fine) into a UserForm.
The VBA code is running on the sheet included.
The used code is following ( Thx to some other forums where i found it)

Private Function hdrs(Par1 As String, Par2 As String) As String
    Dim tbl6 As ListObject
    Dim rit As String
    Dim Lrow As Long
    
    Set tbl6 = ActiveSheet.ListObjects("Tabel6")
    Lrow = tbl6.Range.Rows.Count
    
    For Each cl In ActiveSheet.Range("D2:J" & Lrow)
        If cl.Value = Par2 And Cells(cl.Row, 2) = Par1 Then
            If InStr(1, rit, Cells(1, cl.Column).Value) = 0 Then
                rit = rit & Cells(1, cl.Column).Value & ", "
            End If
        End If
    Next cl
    If rit <> "" Then hdrs = Left(rit, Len(rit) - 2)
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B18:C18")) Is Nothing Then
        If Range("B18") <> "" And Range("C18") <> "" Then
            Range("D17") = hdrs(Range("B18"), Range("C18"))
        End If
    End If
End Sub

I would like to create on "Blad2" a userform which has the same result.
Unfortunally i don't have a lot experience comes to VBA.
i already prepaired the form a bit but can't get some things working
Made a print screen also.
So in the dropdown make the same choices and get the results under it.
hope it make sense.
Don't know how to get the complete file uploaded and if this is allowed.
Hope someone can help me out.

Fiteren ritten (1).xlsm
	F
24
Blad1

 

[Dedeke]

Solved with the help from: https://chat.openai.com/chat

After some questions, in Dutch i got this code. some small changes in names and it worked fine.
This code solved my problem

Private Sub CommandButton1_Click()
    Dim searchValue1 As String
    Dim searchValue2 As String
    Dim resultHeaders As String
    Dim foundCell As Range
    
    'Lees de zoekwaarden uit de comboboxen in het Userform1
    searchValue1 = UserForm1.ComboBox1.Value
    searchValue2 = UserForm1.ComboBox2.Value
    
    'Zoek de waarde uit de eerste combobox in de tabel op blad1
    Set foundCell = Sheets("blad1").ListObjects("Tabel3").Range.Columns(1).Find(What:=searchValue1, LookIn:=xlValues, LookAt:=xlWhole)
    
    'Controleer of de cel is gevonden
    If Not foundCell Is Nothing Then
        'Zoek de waarde uit de tweede combobox in de rij waarin de eerste waarde is gevonden
        For Each cell In foundCell.EntireRow.Cells
            If cell.Value = searchValue2 Then
                'Voeg de header van de cel toe aan de resultHeaders
                resultHeaders = resultHeaders & Sheets("blad1").ListObjects("Tabel3").HeaderRowRange.Cells(cell.Column).Value & ", "
            End If
        Next cell
        
        'Verwijder de laatste komma en spatie uit de resultHeaders
        resultHeaders = Left(resultHeaders, Len(resultHeaders) - 2)
        
        'Toon de resultHeaders in de textbox op het Userform1
        UserForm1.TextBox4.Value = resultHeaders
    Else
        'Als de cel niet is gevonden, geef dan een foutmelding weer
        MsgBox "De waarde " & searchValue1 & " kon niet worden gevonden in de tabel op blad1."
    End If
End Sub