listbox met gefilterde gegevens

[appie36]

Hallo,

In het voorbeeld een tabel en een knop om een userform te openen. Nu krijg ik niet voor elkaar om de listbox te vullen met gefilterde data.
Ik hoef geen combobox waar ik wat kan invullen, maar bijvoorbeeld dat de tekst "amsterdam"in de vba code zit. Zodat je listbox alleen word gevuld met namen uit Amsterdam.

Op internet staat zoveel maar niet 1 die ik werkend kreeg in mijn bestand.

Iemand een idee?

Mvg
Ab

[AD1957]

Voorbeeldbestand lijkt me niet goed.

[appie36]

inderdaad verkeerde voorbeeld, nu de goed eraan geplakt

[HSV]

Indien er gesorteerd mag worden in het Listobject.

Verwijder eerst "=namen" in de Rowsource van de eigenschappen.

Private Sub UserForm_Initialize()
With Blad1.ListObjects(1).DataBodyRange
 .Sort .Cells(2, 2), , , , , , , xlYes
 .AutoFilter 2, "amsterdam"
   ListBox1.List = .SpecialCells(12).Value
 .AutoFilter
End With
End Sub

Indien niet, zetten we alles op dezelfde plek terug.

Private Sub UserForm_Initialize()
With Blad1.ListObjects(1).DataBodyRange
sv = .Value
 .Sort .Cells(2, 2), , , , , , , xlYes
 .AutoFilter 2, "amsterdam"
   ListBox1.List = .SpecialCells(12).Value
 .AutoFilter
 .Value = sv
End With
End Sub

En anders alles in een array, maar kijk eerst maar eens of dit voldoet voor je.

[AD1957]

Harry,
Waarom eerst sorteren ?, is me onduidelijk.

appie36,
Zie bestandje voor een andere optie.

[JEC.]

Zo houd je een aangesloten bereik tbv specialcells

[appie36]

ik ga er mee aan het stoeien, de tweede code van HSV heb ik werkend gekregen. Alleen in de tabel waar het om gaat staan formules, deze worden gewist op een of andere manier.

ik had wat gevonden die de gefilterde gegevens naar een ander tabblad copieert en dat die dan weer de list box vult. Maar ook die is voor mij lastig te begrijpen.

[HSV]

Maak van .Value, .Fomula

[appie36]

Een wat late reactie, maar uiteindelijk het voorbeeld van AD werkend gekregen in mijn eigen bestand.

Bedankt allemaal voor het meedenken.