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
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