Hoe xlookup in vba te gebruiken (met voorbeelden)

U kunt de volgende basissyntaxis gebruiken om een XLOOKUP uit te voeren met VBA:

 Sub Xlookup()
    Range(" F2 ").Value = WorksheetFunction.Xlookup(Range(" E2 "), Range(" A2:A11 "), Range(" C2:C11 "))
End Sub

Dit specifieke voorbeeld zoekt naar de waarde in cel E2 in het bereik A2:A11 en vindt de overeenkomende waarde in het bereik C2:C11 en wijst het resultaat vervolgens toe aan cel F2 .

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: XLOOKUP gebruiken in VBA

Stel dat we de volgende gegevensset in Excel hebben die informatie bevat over verschillende basketbalspelers:

Stel dat we in de dataset willen zoeken naar de teamnaam ‚Kings‘ en de corresponderende waarde willen retourneren in de assists-kolom.

We kunnen hiervoor de volgende macro maken:

 Sub Xlookup()
    Range(" F2 ").Value = WorksheetFunction.Xlookup(Range(" E2 "), Range(" A2:A11 "), Range(" C2:C11 "))
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

De macro retourneert correct een waarde van 3 assists voor de koningen.

Als we de teamnaam in cel E2 wijzigen en de macro vervolgens opnieuw uitvoeren, wordt de helperwaarde voor de nieuwe teamnaam correct gevonden.

Laten we bijvoorbeeld zeggen dat we de teamnaam wijzigen in ‚Warriors‘ en de macro opnieuw uitvoeren:

De macro retourneert correct een waarde van 4 assists voor de Warriors.

Merk op dat u ook een optioneel vierde argument aan de Xlookup- functie kunt toevoegen om de waarde op te geven die moet worden weergegeven als er geen overeenkomst wordt gevonden.

U kunt bijvoorbeeld de volgende macro gebruiken om een XLOOKUP-functie uit te voeren en ‚Geen‘ te retourneren als er geen overeenkomst wordt gevonden:

 Sub Xlookup()
    Range(" F2 ").Value = WorksheetFunction.Xlookup(Range(" E2 "), Range(" A2:A11 "), Range(" C2:C11 "), "None")
End Sub

Voel je vrij om “Geen” te vervangen door de waarde die je wilt weergeven.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: indexmatching gebruiken
VBA: hoe VERT.ZOEKEN te gebruiken
VBA: VLOOKUP gebruiken vanaf een ander blad