Vullen listbox met alleen gefilterde tabel

[HSV]

Ik heb het niet goed getest en zo geplaatst.
De ubound gaat niet eens verder in mijn code na de eerste gefilterde rij (bv. rij 7).

In jouw code kun je de -1 iets flexibeler maken.
Zo is die niet afhankelijk op welke rij het object zich bevindt.

With Sheets(1).ListObjects(1)
   sv = .DataBodyRange.Value
      For Each cl In .ListColumns(1).DataBodyRange.SpecialCells(12)
       x = x & "|" & cl.Row - .HeaderRowRange.Row
      Next cl
    ListBox1.List = Application.Index(sv, Application.Transpose(Split(Mid(x, 2), "|")), Array(1, 2, 3, 4))
  End With

Of:

With Sheets(1).ListObjects(1)
    sv = .DataBodyRange.Value
      For Each cl In .DataBodyRange.Columns(1).SpecialCells(12)
       x = x & "|" & cl.Row - .HeaderRowRange.Row
      Next cl
    ListBox1.List = Application.Index(sv, Application.Transpose(Split(Mid(x, 2), "|")), Array(1, 2, 3, 4))
  End With

 

[snb]

@VenA

Ik probeer juist de interaktie met het werkboek te minimaliseren.
Als je al een variabele in plaats van een 2e listbox zou willen gebruiken, dan zou ik hem iin de macromodule van het userform als Private declareren:

Dim sn

is dan al voldoende.

Door de vragensteller zijn we wel op het verkeerde been gezet om in VBA te maken wat de Combobox ingebouwd heeft.

 

[AD1957]

@snb

Mijn vraag kwam voort uit een andere vraag .https://www.helpmij.nl/forum/showthread.php/950283-Invoeren-namen-vanuit-een-bestaande-namenlijst
Zie hier #8 en #9