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.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen