benjansen
07-01-2008, 11:59 PM
Dear all,
I have the following problem. I created a form in Excel with a listbox, multiline select. When opening the form this executes a loop for writing the selected entries of the listbox to a range of cells in sheet 1
Dim lItem As Long
For lItem = 0 To lsboxMainframe.ListCount - 1
If lsboxMainframe.Selected(lItem) = True Then
Sheet1.Range("B60").End(xlUp)(2, 1) = lsboxMainframe.List(lItem)
lsboxMainframe.Selected(lItem) = False
End If
The problem:
When I open the document it should show the selected items of the listbox......so it should read the written items in the cells....
Well....how the h*ll should I do this.....I haven't got any clue....I did this for a textbox...but this is simple....on opening the form...
Worksheets("Detailsheet").Range("E15") = DRPC.txtNamebsd.Value
Can anyone help me out here....??????
Thanx for the effort
Ben
I have the following problem. I created a form in Excel with a listbox, multiline select. When opening the form this executes a loop for writing the selected entries of the listbox to a range of cells in sheet 1
Dim lItem As Long
For lItem = 0 To lsboxMainframe.ListCount - 1
If lsboxMainframe.Selected(lItem) = True Then
Sheet1.Range("B60").End(xlUp)(2, 1) = lsboxMainframe.List(lItem)
lsboxMainframe.Selected(lItem) = False
End If
The problem:
When I open the document it should show the selected items of the listbox......so it should read the written items in the cells....
Well....how the h*ll should I do this.....I haven't got any clue....I did this for a textbox...but this is simple....on opening the form...
Worksheets("Detailsheet").Range("E15") = DRPC.txtNamebsd.Value
Can anyone help me out here....??????
Thanx for the effort
Ben