Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno VBA - napĺňanie ListBox-u procedúrou

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

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny