Bez ReDim (na začiatku je RemoveItem, aby bolo pole prázdne):
Sub NaplnenieZoznamuR()
Dim Rozsah(0, 12)
frmKarta.lsbLRD.List = Rozsah
frmKarta.lsbLRD.RemoveItem 0
frmKarta.lsbLRD.ColumnCount = 13
frmKarta.lsbLRD.ColumnWidths = "30;70;0;0;110;80;0;80;45;45;0;0"
j = 0
For i = 4 To RZapisu
If Sheets("RPNI").Range("C" & i) = Meno Then
With frmKarta
.lsbLRD.AddItem
'...
End With
j = j + 1
End If
Next i
End Sub
S ReDim (už sa nevolá AddItem, pretože pole má požadovaný rozsah):Sub NaplnenieZoznamuR()
Dim Rozsah
ReDim Rozsah(RZapisu, 12)
frmKarta.lsbLRD.List = Rozsah
frmKarta.lsbLRD.ColumnCount = 13
frmKarta.lsbLRD.ColumnWidths = "30;70;0;0;110;80;0;80;45;45;0;0"
j = 0
For i = 4 To RZapisu
If Sheets("RPNI").Range("C" & i) = Meno Then
With frmKarta
'...
End With
j = j + 1
End If
Next i
End Sub