Extended Listbox

[apikills]

Hallo Allemaal,

ik heb een userform in excel gemaakt, waarbij in een listbox een overzicht moet komen van eerder geselecteerde files. Deze files moeten aan de listbox worden toegevoegd. Ik weet dat dit met additem kan.

vraag-1
Ik wil werken in kolommen, dus bijv in de eerste kolom naam van de file en in de tweede kolom bijv. de naam van de map waarin de file staat. Hoe moet dit?

vraag-2
Als ik dit dan voor elkaar heb, hoe kan ik dan mbv de option-buttons de hele serie ineenkeer aan of uitschakelen?

Ik heb een voorbeeldje bijgevoegd. Oh ja, het moet in Office 2003 werken (mocht dat uitmaken)

Hoop dat jullie me kunnen helpen. Alvast bedankt voor de moeite!

Api

 

[etri]

Op je eerste vraag. Je kunt met de .List property alles in 1 keer toevoegen. Zij onderstaand voorbeeld waarin een lijst met 11 entries in 1x wordt toegevoegd.

Sub voorbeeld()
    Dim list(0 To 10, 0 To 2) As Variant
    
    For i = 1 To 11
        list(i - 1, 0) = "Test " & CStr(i)
        list(i - 1, 1) = "Hello " & CStr(i)
        list(i - 1, 2) = "World " & CStr(i)
    Next i
    
    
    With UserForm1
        .ListBox1.list = list
        .Show
    End With
End Sub

 

[etri]

Tweede vraag:

Gebruik bijvoorbeeld een functie SelectAll als in

Private Sub OptionButton1_Click()
    SelectAll True
End Sub

En definieer de functie zelf als:

Public Sub SelectAll(value As Boolean)
    Dim i As Integer
    
    For i = 0 To UBound(UserForm1.ListBox1.list)
        UserForm1.ListBox1.Selected(i) = value
    Next i
End Sub

Misschien kan de functie wel in 1x maar dat heb ik zo snel niet gevonden.

Succes!

 

[apikills]

SUPER etri:thumb:

Hartstikke bedankt voor je snelle reactie. Ben ik al een heel eind de goede weg mee op.

Dit gaat me helemaal lukken.

Api