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

Lijst weergeven met mogelijkheden

Status
Niet open voor verdere reacties.

huppelpaard

Gebruiker
Lid geworden
27 mei 2018
Berichten
157
Ik ben op zoek naar een oplossing om een lijst te genereren met mogelijke keuzes in een validatie lijst.

Ik heb een oudere office excel zonder = filter formule mogelijkheid

de bedoeling is om een waarde te zoeken en vervolgens een lijst te genereren met alle mogelijkheden.
Deze worden dan via een keuze menu selecteerbaar.

aan deze validatie lijst hang ik de formule om verticaal te zoeken naar de exacte overeenkomst zodat het juiste nummer geresulteerd word

als ik nu zoek op bijv aalten dan word het eerste resultaat gekoppeld aan het nummer terwijl er meerdere mogelijkheden zijn.

Ik ben al aan het vogelen geweest met een hulp kolom maar dan moet ik alsnog steeds handmatig filteren dat is dus niet de bedoeling -)

Alvast bedankt voor het meedenken
 

Bijlagen

Hallo,

Misschien te kort door de bocht maar als je van je gegevens een tabel maak en dan door tekst filter, filtert op in jouw geval Aalten?
Zie bijlage.

Of misschien zo?
Zie link.
https://trumpexcel.com/dynamic-excel-filter/
 

Bijlagen

Laatst bewerkt:
Ik zie bij jouw Userform niet veel gebeuren Ad, of ligt dat aan mij?

edit: denk niet dat het aan mij ligt, er is geen listbox Click event
 
Laatst bewerkt:
Als je overstapt naar de nieuwste versie van excel maakt het allemaal een stuk eenvoudiger.
Daar zit het namelijk ingebakken in datavalidatie.
 
Wat je in kolom I wilt hebben is me niet duidelijk.

Code:
Sub SjonR()
Cells(2, 8).Resize(1500).ClearContents

X = 2
For i = 2 To 1500
    If InStr(Cells(i, 1), Cells(2, 7)) Then
        Cells(X, 8) = Cells(i, 1)
        X = X + 1
    End If
Next

End Sub
 
Bedankt voor jullie antwoorden ik denk met de url van peter dat dit het meest in de buurt komt.
Ik kom er nog op terug
 
@ad1957 ik heb nog een vraag.
is het mogelijk om een selectie te maken in de userlist en dan de code te plakken in een bepaalde cel?

als voorbeeld: in userlist
wanneer ik aalten invult als filter en vervolgens Aalten-Centrum kiest....
dat er dan in A1 1003 komt te staan.

alvast bedankt
 
In I2:

PHP:
=IFERROR(INDEX($C:$C;MATCH($H2;$B:$B;0));"")
 
Huppelpaard,

Zet onderstaande bij de codes van het userform.
Code:
Private Sub ListBox1_Click()
With ListBox1
    If .ListIndex > -1 Then Range("[B]H1"[/B]) = .List(.ListIndex, 2)
End With
End Sub
Of
Code:
Private Sub ListBox1_Click()
With ListBox1
   If .ListIndex > -1 Then Range("H1") = .Column(2)    
End With
End Sub
Voor alle duidelijkheid: de kolommen in een listbox beginnen met 0 te tellen.
 
Laatst bewerkt:
Kan ook zó:

Code:
Private Sub UserForm_Initialize()
  ListBox2.List = Blad1.ListObjects(1).DataBodyRange.Value
  ListBox1.List = Application.Index(ListBox2.List, , 1)
End Sub

Private Sub TextBox1_Change()
  ListBox1.List = Filter(Application.Transpose(ListBox1.List), TextBox1)
End Sub

Private Sub CommandButton1_Click()
  TextBox1 = ""
  ListBox1.List = ListBox2.List
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan