

VBA - napĺňanie ListBox-u procedúrou
Ahojte, viete niekto poradiť, prečo mi VBA nedovolí naplniť položku ListBoxu, pokiaľ je poradové číslo jej stĺpca viac ako jednociferné?
Problém spôsobuje riadok .lsbLRD.List(j, 10) = Sheets("RPNI").Range("Y" & i).Text kvôli číslu stĺpca 10.
With frmKarta
.lsbLRD.AddItem
.lsbLRD.List(j, 0) = Sheets("RPNI").Range("A" & i).Text
.lsbLRD.List(j, 9) = Sheets("RPNI").Range("X" & i).Text
.lsbLRD.List(j, 10) = Sheets("RPNI").Range("Y" & i).Text
End With
Počas behu, keď program narazí na uvedený riadok, dostanem chybové hlásenie:Run-time error ´380´
Could not set the List property. Invalid property value
Poznámka: lsbLRD.ColumnCount=13 takže tým to nebude