vullen use r orm met 2 kolommen

[don42]

Hoi allemaal,

ik ben op zoek naar een oplossing voor het vullen van mijn listbox
met onderstaande code
krijg ik keurig allen namen die in kolom L staan in mijn listbox
Als de waarde in cel O1 - Cells(1, 15) gelijk is
graag had ik nu in de listbox in een tweede kolom bij een match de waarde uit kolom K toegevoegd
is dat mogelijk?

kan de titel niet meer aanpassen
maar use r orm = Userform

Private Sub Userform_initialize()
ListBox1.Clear
 With Sheets("Sittard")
   For Each cl In .Range("k2:k" & .Cells(.Rows.Count, 2).End(xlUp).Row)
    If cl = .Cells(1, 15) Then
         ListBox1.AddItem cl.Offset(, 1)
    End If
  Next
 End With

 

[emields]

en waar is het voorbeeldbestand?

 

[don42]

Komt uit een heel groot bestand met veel namen, moeilijk om dat er zo even uit te knippen.

ik hoopte op:

Private Sub Userform_initialize()
       With ListBox1
        .List = Sheets("Sittard").Range("w2:w197").CurrentRegion.Value
        For j = .ListCount - 1 To 0 Step -1
          If .List(j, 0) = "" Then .RemoveItem (j)
        Next j
    End With
End Sub

maar dan wel met de zoekfunctie in kolom K (match met Cells(1, 15)
Met dit userform heb ik wel 2 kolommen
Zit er al een hele tijd mee te experimenteren.