spaceships
09-14-2012, 09:00 AM
Hello,
I managed to write the code required to read from the ListBox to a single cell and separate each entry in the listbox by an Alt+Enter value (vbLf). The code for this is:
Private Function LogListToCell() As String
Dim x As Integer
Dim list As String
x = 0
For x = 0 To Log_List.ListCount - 1
If x <> Log_List.ListCount - 1 Then _
list = list & Log_List.Column(0, x) & vbLf _
Else _
list = list & Log_List.Column(0, x)
Next
LogListToCell = list
End Function
So what I'm trying to do now is to read those values back into the ListBox and I'm not quite sure how to go about this.
I managed to write the code required to read from the ListBox to a single cell and separate each entry in the listbox by an Alt+Enter value (vbLf). The code for this is:
Private Function LogListToCell() As String
Dim x As Integer
Dim list As String
x = 0
For x = 0 To Log_List.ListCount - 1
If x <> Log_List.ListCount - 1 Then _
list = list & Log_List.Column(0, x) & vbLf _
Else _
list = list & Log_List.Column(0, x)
Next
LogListToCell = list
End Function
So what I'm trying to do now is to read those values back into the ListBox and I'm not quite sure how to go about this.