Hello,
I'm getting this error message %subject% while trying to assign value
into the listbox in VBA Excel.
The error occurs when writting to column "10" either the "columncount"
property is set to 26.

the code is:

lb_report.ColumnCount = pocet_stlp + 1
If r = 1 Then condition = True
If condition = True Then
rwrite = rwrite + 1
lb_report.AddItem
For s = 1 To pocet_stlp
hodnota = ws.Cells(r, CInt(lb_colselected.List(s - 1,
1))).Value
lb_report.List(rwrite - 1, CInt(s)) = hodnota
Next s
End If


Thakns for advice

unbound controls are limited to 10 columns. from the help on ColumnCount
property:

Setting ColumnCount to 0 displays zero columns, and setting it to -1
displays all the available columns. For an unbound data source, there is a
10-column limit (0 to 9).



--

Regards,

Tom Ogilvy



wrote in message
ups.com...
Hello,
I'm getting this error message %subject% while trying to assign value
into the listbox in VBA Excel.
The error occurs when writting to column "10" either the "columncount"
property is set to 26.

the code is:

lb_report.ColumnCount = pocet_stlp + 1
If r = 1 Then condition = True
If condition = True Then
rwrite = rwrite + 1
lb_report.AddItem
For s = 1 To pocet_stlp
hodnota = ws.Cells(r, CInt(lb_colselected.List(s - 1,
1))).Value
lb_report.List(rwrite - 1, CInt(s)) = hodnota
Next s
End If


Thakns for advice

Does it mean, that there is no way how to add more then 10 columns
without binding it to worksheet?

Any other controls couldn't manage this?

That is what it means.

None that are shipped with Excel.

--
Regards,
Tom Ogilvy


wrote in message
oups.com...
Does it mean, that there is no way how to add more then 10 columns
without binding it to worksheet?

Any other controls couldn't manage this?