:)  
 
Private Sub CommandButton2_Click()  
Dim i As Long  
With Worksheets("Лист2")  
ListBox1.List = Split(Replace(.Cells(1, 1).Value, " ", ""), ",")  
End With  
End Sub

еще один вопрос  
а как можно ввести данные из ListBox1 в ячейку с запятыми

{quote}{login=Hugo}{date=29.11.2011 05:28}{thema=}{post}:) Вводите значение, затем запятые. или наоборот, или делите значение и лепите запятые внутрь, или промеж запятых из ячейки :)  
 
Но я думаю, что понял, что нужно -    
Проверяете, есть ли уже значение.  
Если нет - вводите.  
Если есть - добавляете к значению запятую с пробелом и добавляете значение.{/post}{/quote}  
 
Private Sub CommandButton2_Click()  
Dim i As Long  
With Worksheets("Лист2")  
ListBox1.List = Split(Replace(.Cells(1, 1).Value, " ", ""), ",")  
End With  
End Sub  
 
в этом коде из ячейки в ListBox1 - убирает запятых  
----------  
из ListBox1.List в одну ячейку поставить между запятых  
можно так?

Hugo улучить работу  
ввожу в ComboBox находить и меняю данные в ListBox