KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe selecteer je een bereik op basis van de celwaarde in een andere kolom in Excel?

AuteurSun Wijzigingsdatum

In dit artikel bespreek ik hoe u Bereik selecteren op basis van de celwaarde in een andere kolom. Neem bijvoorbeeld het geval waarin de cellen ONWAAR weergeven in kolom C; dan worden de bijbehorende cellen in kolom A en kolom B geselecteerd, zoals in onderstaande schermafbeelding wordt getoond. Er is geen ingebouwde functie om deze taak uit te voeren, maar in dit artikel laat ik u zien hoe u dit met VBA-code kunt oplossen.
Een schermafbeelding waarop cellen in kolommen A en B zijn geselecteerd op basis van ONWAAR-waarden in kolom C

Bereik selecteren op basis van celwaarde in een andere kolom met VBA-code

pijl blauw rechts bubbel Bereik selecteren op basis van celwaarde in een andere kolom met VBA-code

Bereik selecteren op basis van celwaarde in een andere kolom met VBA-code

1. Activeer het werkblad dat u wilt gebruiken en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak vervolgens de onderstaande code in het nieuwe Module-venster.

VBA: Bereik selecteren op basis van celwaarde

Sub SelectByCellValue()
'UpdatebyExtendoffice20161128
    Dim lastrow As Long
    Dim xRg As Range, yRg As Range
    'change Sheet1 to suit
    With ThisWorkbook.Worksheets("Sheet2")
        lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row
        Application.ScreenUpdating = False
        For Each xRg In .Range("C1:C" & lastrow)
            If UCase(xRg.Text) = "FALSE" Then
                If yRg Is Nothing Then
                    Set yRg = .Range("A" & xRg.Row).Resize(, 2)
                Else
                    Set yRg = Union(yRg, .Range("A" & xRg.Row).Resize(, 2))
                End If
            End If
        Next xRg
        Application.ScreenUpdating = True
    End With

    If Not yRg Is Nothing Then yRg.Select
End Sub

Een schermafbeelding van VBA-code ingevoegd in een nieuwe module voor het selecteren van cellen op basis van een andere kolom

3. Druk op de F5-toets om de VBA-code uit te voeren; daarna worden de bereiken geselecteerd op basis van de waarden in kolom C.

Opmerking: In het VBA-script is Sheet2 de naam van het huidige werkblad, C geeft de kolom aan waarop u wilt selecteren, en A en 2 in („A" & xRg.Row).Resize(, 2) geven aan dat twee kolommen vanaf kolom A moeten worden geselecteerd. U kunt de verwijzingen naar wens aanpassen.

Tip: als u snel cellen wilt selecteren die gelijk zijn aan een specifieke waarde, probeer dan het hulpprogramma Kutools voor Excel’s Specifieke cellen selecterenzoals in de volgende schermafbeelding wordt getoond.Download het nu en probeer het gratis!

Een schermafbeelding van het hulpprogramma Specifieke cellen selecteren van Kutools for Excel

Beste Office-productiviteitshulpmiddelen

🤖KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

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

Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
  • Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!

Alle Kutools-add-ins in één installatieprogramma.

Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
  • Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
  • Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
  • 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
  • Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins