Ga naar hoofdinhoud

Hoe gegevens filteren uit de vervolgkeuzelijstselectie in Excel?

In Excel kunnen de meesten van ons gegevens filteren met behulp van de filterfunctie. Maar heb je ooit geprobeerd gegevens uit de vervolgkeuzelijst te filteren? Als ik bijvoorbeeld een item uit de vervolgkeuzelijst selecteer, wil ik dat de bijbehorende rijen worden uitgefilterd zoals in het volgende screenshot. In dit artikel zal ik het hebben over het filteren van gegevens met behulp van de vervolgkeuzelijst in een of twee werkbladen.

Filter gegevens uit vervolgkeuzelijstselectie in één werkblad met hulpformules

Filter gegevens uit vervolgkeuzelijstselectie in twee werkbladen met VBA-code


Filter gegevens uit vervolgkeuzelijstselectie in één werkblad met hulpformules

Om gegevens uit de vervolgkeuzelijst te filteren, kunt u enkele hulpformulekolommen maken, voer de volgende stappen een voor een uit:

1. Voeg eerst de vervolgkeuzelijst in. Klik op een cel waarin u de vervolgkeuzelijst wilt invoegen en klik op Data > Data Validation > Data Validation, zie screenshot:

2. In de pop-out Data Validation dialoogvenster onder het Instellingen tab, selecteer Lijst van het Allow vervolgkeuzelijst en klik vervolgens op knop om de datalijst te kiezen waarop u de vervolgkeuzelijst wilt maken, zie screenshot:

3. En klik vervolgens op OK knop, wordt de vervolgkeuzelijst in één keer ingevoegd en kiest u een item uit de vervolgkeuzelijst en voert u deze formule in: = RIJEN ($ A $ 2: A2) (A2 is de eerste cel in de kolom die de vervolgkeuzelijst bevat) in cel D2 en sleep vervolgens de vulgreep naar de cellen om deze formule toe te passen, zie screenshot:

4. Ga door met het invoeren van deze formule: = ALS (A2 = $ H $ 2, D2, "") in cel E2 en sleep vervolgens de vulgreep naar beneden om deze formule te vullen, zie screenshot:

Note: In de bovenstaande formule:A2 is de eerste cel in de kolom die de waarde van de vervolgkeuzelijst bevat,H2 is de cel waar de vervolgkeuzelijst is geplaatst, D2 is de eerste hulpkolomformule.

5. En typ vervolgens deze formule: = IFERROR (SMALL ($ E $ 2: $ E $ 17, D2), "") in cel F2 en sleep vervolgens de vulgreep naar de cellen om deze formule te vullen, zie screenshot:

Note: In de bovenstaande formule: E2: E17 is de tweede helperformulecel, D2 is de eerste cel in de eerste hulpformulekolom.

6. Nadat u de kolommen van de hulpformule hebt ingevoegd, moet u het gefilterde resultaat naar een andere locatie uitvoeren, pas deze formule toe: =IFERROR(INDEX($A$2:$C$17,$F2,COLUMNS($J$2:J2)),"") in cel J2, en sleep vervolgens de vulgreep van J2 naar L2, en het eerste record van de gegevens op basis van de vervolgkeuzelijst is geëxtraheerd, zie screenshot:

Note: In de bovenstaande formule: A2: C17 zijn de originele gegevens die u wilt filteren, F2 is de derde hulpformulekolom, J2 is de cel waar u het filterresultaat wilt uitvoeren.

7. En sleep vervolgens de vulgreep naar de cellen om alle bijbehorende gefilterde records weer te geven, zie screenshot:

8. Vanaf nu, wanneer u een item uit de vervolgkeuzelijst selecteert, worden alle rijen op basis van deze selectie in één keer gefilterd, zie screenshot:


Filter gegevens uit vervolgkeuzelijstselectie in twee werkbladen met VBA-code

Als uw vervolgkeuzelijstcel in Blad1 en de gefilterde gegevens in Blad2, wanneer u een item uit de vervolgkeuzelijst kiest, wordt een ander blad uitgefilterd. Hoe kon je deze klus in Excel afmaken?

De volgende VBA-code kan je een plezier doen, doe dit als volgt:

1. Klik met de rechtermuisknop op de bladtab die de vervolgkeuzelijstcel bevat en kies vervolgens Bekijk code vanuit het contextmenu, in het geopende Microsoft Visual Basic voor applicaties venster, kopieer en plak de volgende code in de lege module:

VBA-code: filter gegevens uit vervolgkeuzelijstselectie in twee bladen:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    On Error Resume Next
    If Not Intersect(Range("A2"), Target) Is Nothing Then
        Application.EnableEvents = False
        If Range("A2").Value = "" Then
            Worksheets("Sheet2").ShowAllData
        Else
            Worksheets("Sheet2").Range("A2").AutoFilter 1, Range("A2").Value
        End If
        Application.EnableEvents = True
    End If
End Sub

Note: In de bovenstaande code: A2 is de cel die de vervolgkeuzelijst bevat, en Sheet2 is het werkblad de gegevens die u wilt filteren. Het nummer 1 in het script: AutoFilter 1 is het kolomnummer waarop u wilt filteren. U kunt ze naar wens aanpassen.

2. Vanaf nu, wanneer u een item uit de vervolgkeuzelijst in Sheet1 selecteert, en de bijbehorende gegevens worden uitgefilterd in Sheet2, zie screenshot:

Beste Office-productiviteitstools

Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

kte tabblad 201905


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
For me, the Formula =ROWS($A$2:A2) didn't workend! It always gave me "2" back. I had to put =ROWS($A2:A2), so without the second "$", in order to reproduce your result.
This comment was minimized by the moderator on the site
How do I add multiple drown down menus? For example,
If i wanted a drop down menu for Product and name?.
This comment was minimized by the moderator on the site
Hey Kev, wondering if you found an answer to your question here? I have been looking for a bit to no avail.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations