Note: The other languages of the website are Google-translated. Back to English

Hoe vind en krijg ik de waarde van de eerste zichtbare cel na filteren in Excel?

In sommige gevallen moet u mogelijk de waarde van de eerste zichtbare cel in een gefilterde lijst ophalen. Hoe bereik je dit? Dit artikel laat je methoden zien om het op te lossen.

Zoek en verkrijg de waarde van de eerste zichtbare cel na filteren met matrixformule
Zoek en verkrijg de waarde van de eerste zichtbare cel na filteren met VBA


Zoek en verkrijg de waarde van de eerste zichtbare cel na filteren met matrixformule

U kunt de volgende matrixformule toepassen om de waarde van de eerste zichtbare cel in een gefilterde lijst op te halen. Ga als volgt te werk.

1. Selecteer een lege cel om de eerste zichtbare waarde in te plaatsen, voer de onderstaande formule erin in en druk op Ctrl + Shift + Enter toetsen tegelijk.

=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))

Opmerking:: In de formule is C2: C19 de gefilterde lijst waarvan u de eerste zichtbare celwaarde wilt retourneren, C2 is de eerste cel van de lijst. U kunt ze naar behoefte wijzigen.

Vervolgens kunt u de waarde van de eerste zichtbare cel in de gefilterde lijst zien die in de geselecteerde cel is ingevuld, zoals hierboven weergegeven.


Zoek en verkrijg de waarde van de eerste zichtbare cel na filteren met VBA

Naast het gebruik van de bovenstaande matrixformule om de waarde van de eerste zichtbare cel in een gefilterde lijst te krijgen, kunt u het onderstaande VBA-script uitvoeren om snel de eerste zichtbare cel van een gefilterde lijst te retourneren. Ga als volgt te werk.

1. Selecteer een lege cel zoals E8 om de eerste zichtbare celwaarde van een gefilterde lijst te plaatsen.

2. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

3. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.

VBA-code: zoek en verkrijg de waarde van de eerste zichtbare cel na filteren in Excel

Sub FirstVisibleCell()
   With Worksheets("Sheet1").AutoFilter.Range
       ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
    End With
End Sub

Opmerking:: In de code is Blad1 de bladnaam die de gefilterde lijst bevat. "C" is de kolomnaam waarvan u de eerste zichtbare waarde wilt ophalen. U kunt ze naar behoefte wijzigen.

3. druk de F5 toets om de code uit te voeren, dan wordt de eerste zichtbare cel van de gefilterde lijst die zich in kolom C bevindt, onmiddellijk in cel E8 ingevuld.


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
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!
officetab onderkant
Heb je vragen? Stel ze hier. (17)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hoe de waarde van tien (10) eerste zichtbare cellen te vinden en te krijgen na subtotaalfiltering in Excel?
Deze opmerking is gemaakt door de moderator op de site
Ola,


Wat is er aan de hand met de mogelijkheid om een ​​realizo- of filterautomático geen vba via lus te maken?
Voorbeeld, oa filtrar o valor 1, retornou als linhas 2, 3 en 4. Geen proximo loop filtro o valor 2 en retorna als linhas 19, 20, 22.
Kom meer te weten over de filtratie van de eu pegue exatamente of valor da linha atual da linha do filtro en não o valor da primeira linha da planilha?
Dank u.
Deze opmerking is gemaakt door de moderator op de site
Uitstekende module in VBA, werkte perfect. Ik waardeer dit! Heel erg bedankt voor dit bericht !!!!
Deze opmerking is gemaakt door de moderator op de site
Kan iemand uitleggen hoe deze formule eigenlijk werkt?

=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))
Deze opmerking is gemaakt door de moderator op de site
Ik krijg steeds een Runtime-fout '91' Objectvariabele of Met blokvariabele niet ingesteld. Mijn werkblad is Blad1 met de titel AllBrands. Dit is mijn formule:

Sub EersteVisibleCell()
Met werkbladen ("ALLBRANDS").AutoFilter.Bereik
ActiveCell.Value2 = Range("H" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Rij).Value2
Eindigt met

End Sub

Alle hulp wordt gewaardeerd!
Deze opmerking is gemaakt door de moderator op de site
Hallo Bub,
De code werkt in mijn geval goed. Welke Excel-versie gebruik je?
Deze opmerking is gemaakt door de moderator op de site
Helaas - noch de formule - die me een #VALUE-fout geeft, noch de VBA werkt voor mij en geeft me een runtime-fout '1004'
Jammer, want ik heb Office 2019 en ik verwachtte dat een van deze functies zou werken bij het filteren van specifieke cellen... :-(
Deze opmerking is gemaakt door de moderator op de site
‌geweldig🌺 Een miljoen bedankt🙏
Deze opmerking is gemaakt door de moderator op de site
Bedankt een miljoen🙏🌺
Deze opmerking is gemaakt door de moderator op de site
Het werkt. Hartelijk bedankt...
Deze opmerking is gemaakt door de moderator op de site
Deze formule werkt, maar houd er rekening mee dat als u lege cellen heeft, de formule niet goed werkt en de eerste waarde in de hele tabel selecteert, niet alleen in de gefilterde resultaten. De oplossing die ik vond, was om lege cellen te vervangen door NULL of een spatie.
Deze opmerking is gemaakt door de moderator op de site
Eerst had ik lege plekken .... toen waren alle cellen gevuld maar hadden ze nog steeds het antwoord #WAARDE. Hopelijk werkt deze formule ook op tekst...! Bedankt voor het advies in ieder geval ;-)
Deze opmerking is gemaakt door de moderator op de site
Dus voor mij werkt het bovenstaande antwoord gewoon niet zo goed. Ik heb een werkmap met meer dan 23k rijen en dit is iets waar ik in de loop der jaren aan heb gewerkt om het te optimaliseren. Mijn oplossing kwam vanmorgen in een nieuwe vonk van inspiratie.
Ervan uitgaande dat u een TABLE gebruikt om de gewenste gegevens op te halen, doet u dit: Eén rij (ik noemde het "Rownmbr") is gewijd aan: =CELL([@[YOURFIRSTROW]])
Buiten de tabel maak je ergens een formule:=INDIRECT(CONCATENATE("A";SUBTOTAL(105;Table1[Rownmbr])))
U vervangt eenvoudig de "A" door waar u de gegevens vandaan wilt halen. Voor mij werkt dit geweldig, en het is geen zware formule om te gebruiken die het document verder zal verzanden.
Deze opmerking is gemaakt door de moderator op de site
Deze oplossing werkte perfect voor mij, aangezien ik een tabel gebruikte. De instructies waren moeilijk te volgen, dus hopelijk is deze uitleg wat duidelijker.
Stel dat u een Excel-tabel hebt met de naam 'Table_Name'. Maak eerst een nieuwe kolom in uw tabel en noem deze "Rijnummer". 
Voer in die nieuwe kolom de formule "=ROW([@RowNumber])" in. Dit zal dan de nieuwe kolom vullen met
Voer in de cel waar u de eerste zichtbare waarde wilt weergeven de formule "=INDIRECT("A"&SUBTOTAL(105,Table_Name[RowNumber]))" in. De "A" is de letter van de kolom die de gewenste waarde bevat terugbrengen.
De functie SUBTOTAL(105,...) retourneert de minimumwaarde van alle zichtbare rijen in een bepaald bereik, wat in het bovenstaande geval het rijnummer van de eerste zichtbare rij retourneert.
De INDIRECT-functie retourneert de waarde van de cel voor een bepaald celadres. Daarom moet het eerste deel van de formule de kolomletter bevatten van de kolom die u wilt weergeven. Het tweede deel van de formule retourneert het rijnummer.


Deze opmerking is gemaakt door de moderator op de site
Kun je me helpen deze formule in google-sheet te schrijven met arrayformula ()

{=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))}
Deze opmerking is gemaakt door de moderator op de site
Kunt u in de volgende VBA-code uitleggen wat dat doet? SpecialCells(xlCellTypeVisible)(1) gemeen? Wat is (1) gebruikt voor na SpecialCells(xlCellTypeVisible)?
ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Rij).Value2
Deze opmerking is gemaakt door de moderator op de site
Dank je!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL