Lijst weergeven met mogelijkheden

[huppelpaard]

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

 

[peter59]

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/

 

[AD1957]

Eventueel met VBA
Userform met Listbox.

 

[SjonR]

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

 

[popipipo]

Als je overstapt naar de nieuwste versie van excel maakt het allemaal een stuk eenvoudiger.
Daar zit het namelijk ingebakken in datavalidatie.

 

[SjonR]

Wat je in kolom I wilt hebben is me niet duidelijk.

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

 

[huppelpaard]

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

 

[huppelpaard]

Dit zou wel kunnen werken misschien niet zo mooi maar bereikt wat ik wil

 

[huppelpaard]

@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

 

[snb]

In I2:

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

 

[AD1957]

Huppelpaard,

Zet onderstaande bij de codes van het userform.

Private Sub ListBox1_Click()
With ListBox1
    If .ListIndex > -1 Then Range("[B]H1"[/B]) = .List(.ListIndex, 2)
End With
End Sub

Of

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.

 

[huppelpaard]

dank je wel dit werkt inderdaad super

 

[snb]

Kan ook zó:

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

 

[huppelpaard]

er leidden toch meer wegen naar rome dank je wel snb