Writing to cell stops for loop

Hi,

I want to write all the selected values in a listbox in a range of cells. Every time listbox.selection(x) = true, I increase the offset of the range in the worksheet with the variable i.
It works perfect if I don't write to the worksheet. For exemple if I don't change the value but instead select the cell.
But when I change the value of the cell in the worksheet the variable i doen't count anymore.

When I select 5 things for example cell A1 is the first selected thing in the listbox, the other cells stay empty.

Please Login or Register  to view this content.

The following code works perfect, when I select 5 things, cell A6 is selected.

Please Login or Register  to view this content.

Do you definitely have multi-select enabled in your listbox?

Submitting the workbook wouldn't be possible because of the size so I made a new workbook with only this function. The new workbook worked perfect. The only difference was that in the new workbook the data in the rowsource were not calculated. In the original workbook, the rowsourcedata was calculated. It was collected out of another active workbook with =INDIRECT("'[workbook2.xlsx]"&$C$2&"'!"&C$3&$A5). When I changed this in noncalculated data, the VB code worked. So I had the impression that the automated calculation interfered. When I disabled automatic calculation the VB function worked perfect.
I added two lines in my code to stop the calculation before the loop and turn the calculation back on after the loop. This seems to work but I still have no clue why the loop interfered with the calculation.

Please Login or Register  to view this content.

Not that I'm aware of. Repopulation doesn't happen otherwise the selected values should be unselected.
Now I have created another function that fills the same range and this function works without stopping the calculation.