Single Cell to ListBox

[echoedzephyr]

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 LogListToSheet() 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

LogListToSheet = 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.

[mike7952]

This should work

Please Login or Register  to view this content.

[echoedzephyr]

Yes! I didn't know about the split function (just started learning VBA). Thank you!

[mike7952]

Your welcome