• 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.

ListBox vullen met unieke waarden

Status
Niet open voor verdere reacties.
M

Michiel82

Gebruiker
Lid geworden
19 feb 2018
Berichten
21
Hoe kan ik mijn Listbox vullen met unieke waarden (Unieknummer is DossierNr). Een dossiernummer kan meerdere keren terugkomen in de database, maar mag maar 1x voorkomen in mijn listbox.

Hierbij moet ComboBox1, ComboBox2 en OptionButton 1 & 2 als filter gelden.

Ik heb al iets van een script, maar functioneert nog niet helemaal zoals ik zou willen.

Verder wil ik graag headers toevoegen aan mijn ListBox (Headers moeten zijn: Tabblad Database Kolommen A1:G1)

In de bijlage zit mijn huidige bestand.
 

Bijlagen

Als begin:
maak van Textbox9 een Combobox en vul deze met de namen van medewerkers.

code combobox_change
Code: 
ListBox1.List = Sheets("Database").ListObjects(1).DataBodyRange.Value
  For j = ListBox1.ListCount - 1 To 0 Step -1
    If InStr(1, ListBox1.List(j, 1), ComboBox??????, 1) = 0 Then ListBox1.RemoveItem j
  Next j

p.s. niet getest
 
De tabel op je Database sheet is onnodig groot, alles na rij 26 kan je verwijderen.
Welke exacte versie van Excel moet dit op werken? Kent jouw Excel de FILTER functie al?
 
Ik heb Office 365. Ik heb mijn Tabel aangepast. Helaas stond op de een na laatste regel iets wat gegevens. Nu is de tabel weer zo groot als de records in de database.
 
Ik zou dan een kleine draaitabel maken met daarin alleen het eerste veld als rij-veld zodat je die kan gebruiken om de listbox te vullen.
 
of uitgebreid filteren, kan ook
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan