Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
ListBox1.List = Sheets("Database").ListObjects(1).DataBodyRange.Value
Dim MyList As Collection
Dim MyRange As Range
Dim ws As Worksheet
Dim MyVal As Variant
Set ws = ThisWorkbook.Sheets("Database")
Set MyRange = ws.Range("A2", "A" & ws.Range("A2").End(xlDown))
Set MyList = New Collection
On Error Resume Next
For Each myCell In MyRange.Cells
MyList.Add myCell.Value, CStr(myCell.Value)
Next myCell
On Error GoTo 0
For Each MyVal In MyList
Me.ListBox1.AddItem MyVal
Next MyVal
Sheets("Database").ListObjects(1).Range.Columns(1).AdvancedFilter xlFilterCopy, , Sheets("List").Cells(1, 6), True
ComboBox4.List = Sheets("List").Columns(6).SpecialCells(2).Offset(1).SpecialCells(2).Value
Sheets("List").Columns(6).Clear
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.