VBA-code Listbox

[jan excel]

Goede morgen programmeurs,

Met onderstaand code krijg ik in een listbox gegevens in kolom D (excel) te zien.
Echter ik zou graag ook de gevens in cel D willen zien.



Voorbeeld: cel D2 staat nummer 45789 en E2 staat cilinder.
cel D3 staat nummer 45890 en E2 staat schakelaar

In Listbox dient dan te staan:
45789 Cilinder
45890 Schakelaar


On Error GoTo einde
UserForm_hoofdmenu.ListBox1.Clear
UserForm_hoofdmenu.Enabled = True
i = 1
Do
Data = Worksheets("vergelijk").Cells(0 + i, 1).Value
i = i + 1
If i = 2 Then
X = 1
Else
X = 2
End If
Loop Until Data = ""
UserForm_hoofdmenu.ListBox1.RowSource = "gegevens!D22" & i - X
einde:



Ps geprobeerd deze regel te wijzigen UserForm_hoofdmenu.ListBox1.RowSource = "gegevens!D2:E2" & i - X echter dit geeft niet het gewenste resultaat.


Is er iemand die de code kan en wil aanpassen, ben jullie zeer dankbaar.


M.v.g.
Jan E

 

[spaarie]

Zet in de eigenschappen van je listbox de ColumnCount op 2...
Zie afbeelding

 

[jan excel]

Bedamkt, nu werkt het wel !

 

[snb]

En nu werkt het beter:

Private Sub Userform_initialize()
  ListBox1.List = sheets("gegevens").range("D2:E4").value
end sub