Beste,

Ik ben nieuw hier en heb al eens door de topics gezocht, maar ik vind niet direct een oplossing voor mijn probleem. Ik ben iemand die met "trial and error" m'n weg een beetje kan vinden in vba, maar ik ben zeker geen specialist.

Ik heb nu het volgende probleem: ik heb een lijst met "toestellen" in een excel sheet en bij die toestellen hoort een omschrijving. Op een UserForm heb ik een ComboBox en een Label geplaatst en de bedoeling is dat ik via de ComboBox de toestellen op de pagina "Toestellen" kan selecteren en dat ik ook de omschrijving van het toestel kan weergeven in het label. Liefst van al zou ik de omschrijving van al de toestellen in de lijst kunnen weergeven, maar als ik de omschrijving van de ingevoerde naam al kan weergeven, is dat goed. Het lukt me tot op één punt; als ik de ingevoerde data verander, dan verandert de omschrijving niet mee. Ik heb al een code gevonden waarmee ik de toestellen kan aanvullen in de ComboBox en zou dit ook graag behouden. (momenteel is de lijst vrij kort, maar de lijst met toestellen is heel lang en als je dan dor heel de lijst moet scrollen, verlies je onnodig tijd)

Mvg,  Streuby

Hoi Warme Bakker, m'n excuses dat ik zo laat reageer, maar toen ik eerder na het inloggen op "Toon nieuwe reacties..." klikte, kreeg ik geen melding dat er reacties waren. Waarschijnlijk heb ik iets fout gedaan, maar soit.

Ik heb uw oplossing bekeken en dat is zeker wat ik gevraagd heb. Ik heb echter - nadat ik mijn vraag gepost heb - nog wat verder geknutseld en ik kwam zelf ook al tot een oplossing. Uw oplossing geeft de omschrijving na het invoeren van het laatste karakter en mijn oplossing - en ik herhaal ik werk niet uit kennis maar uit "trial and error" - gaf al na het invoeren van het 2 of 3e karakter een omschrijving.
Opgelost denk je dan. Nee, want in mijn versie kan ik niet via de "backspace" een karakter wissen. De ingevoerde karakters blijven geselecteerd en ik kan ze alleen maar wissen via de "delete" knop. Ik moet ook heel de tekst in de Combobox wissen om de omschrijving (inhoud label) te verwijderen. Een voordeel van mijn "trail and error" versie is dan weer dat de toestellen al weergegeven worden bij de invoer van enkel de cijfers. Dit is voor mij ook belangrijk want verschillende toestellen hebben dezelfde nummer en door enkel de cijfers in te voeren, kan ik een keuze in toestellen maken. Ik moet dus in de combinatie van de 2 oplossingen zoeken en nu ik toch mijn verlanglijstje aan plaatsen ben. Ideaal zou zijn dat ik de omschrijving mee in de lijst te zien krijg.
Dat kan, maar dan moet ik een extra tabel maken waarin ik de inhoud van de tabel "Toestellen" en de tabel "omschrijving" samenvoeg. Is er een andere oplossing om dit te doen?
Ik heb mijn 2 probeersels in de bijlage toegevoegd.

Hallo Streuby,

Tenzij je per se wil vasthouden aan het combobox-idee kan je ook deze eens bekijken. Ik heb er onderaan meteen nog 2 textboxes aan toegevoegd die gevuld worden als je een item uit de lijst selecteert. Die heb je misschien nu nergens voor nodig maar kan handig zijn als je later misschien nog meer code wil toevoegen.
Van je lijst met gegevens heb ik maar liever een echte tabel gemaakt.

Mvg,
Molly

@Molly,

Als je jouw volledige code achter je userform vervangt door onderstaande heb je een betere zoekfunctie. Filtering werkt ook op kolom B in dit geval.
Ook kun je met de .column() property direct de juiste waarde oproepen in je textboxen.

Onder het mom van efficiënt schrijven

Dim sq

Private Sub txt_zoek_Change()
 With lst_toestellen
   .List = sq
   For i = .ListCount - 1 To 0 Step -1
     If InStr(1, .List(i, 0) & "|" & .List(i, 1), txt_zoek.Text, 1) = 0 Then .RemoveItem i
   Next
 End With
End Sub

Private Sub lst_toestellen_Click()
  With lst_toestellen
    txt_toestel = .Column(0)
    txt_omschrijving = .Column(1)
  End With
End Sub

Private Sub UserForm_Initialize()
sq = Sheets("Toestellen").ListObjects(1).DataBodyRange.Value
lst_toestellen.List = sq
txt_zoek.SetFocus
End Sub

@ JEC,

Aan het ontbreken van Databodyrange in mijn code heb je ongetwijfeld ook gemerkt dat ik het mezelf zo makkelijk mogelijk had gemaakt (stukje code gekopieerd dus uit een eerder project van en voor mezelf waarin ik niet alle kolommen uit een tabel in mijn listbox moest opnemen, en daarbij niet echt nagedacht).

Als je jouw volledige code achter je userform vervangt door onderstaande heb je een betere zoekfunctie

Ben je daar wel zeker van?

Zoeken uitbreiden naar meerdere kolommen is ook eenvoudig te realiseren binnen mijn werkwijze: "If InStr(full_arr(i, 1), txt_zoek) Then" vervangen door "If InStr(full_arr(i, 1), txt_zoek) Or InStr(full_arr(i, 2), txt_zoek) Then" volstaat. Ik maak trouwens ook dikwijls gebruik van méérdere zoekvelden (op zoek naar een Annita Van den Berghe uit Oosterzele zijn dat er 3 - gdpr indachtig bestáát ze dus niet).

Dat het gewoon kán is uiteraard geen reden om hierop terug te komen (het is niet mijn gewoonte om absoluut gelijk te willen hebben). Wel belangrijk is: met je RemoveItem-methode heb je inderdaad maar één loop nodig, maar of dat volstaat om het efficiënter te noemen is nogal kort door de bocht. Hoewel ik van 2 loops gebruik maak gaat dat aanzienlijk sneller. Ik werk vaak met enorme gegevenstabellen en heb dat meermaals ervaren.
Ik heb deze ervaring natuurlijk ook op het huidige project losgelaten door de tabel wat langer te maken, en met amper  100.000 records gaat het met RemoveItem al enerverend traag. De mijne gaat dan ook niet aan lichtsnelheid, hoor, maar het verschil is meer dan de moeite.

No hard feelings, hoop ik? In elk geval niet van mijn kant! Misschien krijg je wel zin om zelf eens de vergelijking te maken?
En in een volgende stap samen zoeken of het nog sneller kan?

Mvg,
Molly

@ Warme bakkertje,
Mooie aanvulling 

Hallo JEC,

We zullen het nog helemaal eens raken... 
De Filter-methode heb ik ook her en der in gebruik, maar beperkt tot gebruik op één veld.
Puike oplossing om ze met Evaluate aan te vullen 
In mijn 100.000 records-bestand merk ik nog wat vertraging maar ze begint echt wel verwaarloosbaar (0,07 ipv 0,92 sec.) te worden