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

In dit artikel zal ik uitleggen hoe je bereiken kunt selecteren op basis van een celwaarde in een andere kolom. Neem bijvoorbeeld de situatie waarin de cellen ONWAAR weergeven in kolom C; de bijbehorende cellen in kolom A en kolom B worden dan geselecteerd, zoals te zien is in de onderstaande schermafbeelding. Er is geen ingebouwde functie om deze taak uit te voeren, maar in dit artikel laat ik je zien hoe je het kunt doen met VBA-code.

Selecteer een bereik op basis van een celwaarde in een andere kolom met behulp van VBA-code

Selecteer een bereik op basis van een celwaarde in een andere kolom met behulp van VBA-code

Selecteer een bereik op basis van een celwaarde in een andere kolom met behulp van VBA-code

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

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

VBA: Selecteer een bereik op basis van een 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

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

Opmerking: in het VBA-script is Sheet2 de naam van het actieve werkblad, C duidt de kolom aan waarop je wilt selecteren, en A en 2 in ("A" & xRg.Row).Resize(, 2) geven aan dat twee kolommen vanaf kolom A moeten worden geselecteerd. Je kunt de verwijzingen naar wens wijzigen.

Tip: Als je snel cellen wilt selecteren die gelijk zijn aan een specifieke waarde, probeer dan de Kutools voor Excel’s Specifieke cellen selecteren -hulpprogramma, zoals te zien is in de onderstaande schermafbeelding. Download nu en neem een gratis proefversie!