Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Waarden opzoeken / vinden in een andere werkmap?

In dit artikel wordt besproken hoe u waarden opzoekt en gegevens retourneert uit een andere werkmap, en hoe u waarden uit een andere werkmap zoekt / zoekt. Hier zal ik drie oplossingen in detail introduceren.


Vlookup-gegevens en retourwaarden uit een andere werkmap in Excel

U maakt bijvoorbeeld een fruitaankooptabel in Excel en nu moet u het fruit uit een andere werkmap opvullen en de bijbehorende prijzen retourneren zoals hieronder weergegeven schermafbeeldingen. Hier zal ik je helpen het op te lossen met de functie VERT.ZOEKEN in Excel.

1. Open beide werkmappen waaruit u waarden wilt opvullen en waarden wilt retourneren.

2. Selecteer een lege cel waarvan u de prijs wilt retourneren, typ de formule = VERT.ZOEKEN (B2, [Price.xlsx] Sheet1! $ A $ 1: $ B $ 24,2, FALSE) erin en sleep vervolgens de vulhendel om deze formule toe te passen op het bereik dat u nodig hebt.

Notes:
(1) In bovenstaande formule is B2 de vrucht die u opzoekt vanuit een andere werkmap, Price.xlsx geeft de bestandsnaam aan van de werkmap waaruit u opzoekt, Sheet1 betekent de bladnaam waaruit u opzoekt, en A $ 1 : $ B $ 24 is het bereik waaruit u opzoekt. U kunt ze naar behoefte wijzigen.
(2) Na het sluiten van de werkmap waaruit u hebt opgezocht, wordt de formule automatisch bijgewerkt naar = VERT.ZOEKEN (B2, 'W: \ test \ [Price.xlsx] Sheet1'! $ A $ 1: $ B $ 24,2, FALSE)is de W: \ test \ het opslagpad van de werkmap waaruit u hebt opgezocht.

Tot nu toe zijn alle prijzen correct geretourneerd zoals het linker screenshot wordt getoond. En deze prijzen worden automatisch bijgewerkt als de originele werkmap die u hebt opgezocht van wijzigingen.

nota lint De formule is te ingewikkeld om te onthouden? Sla de formule op als een Auto Text-invoer voor hergebruik met slechts één klik in de toekomst!
Lees meer ...     gratis trial

Vlookup-gegevens en retourwaarden uit een andere gesloten werkmap met VBA

Het kan een verwarring zijn om het opslagpad, de bestandsnaam en het werkblad in de functie VERT.ZOEKEN te configureren. Deze methode introduceert een VBA om het gemakkelijk op te lossen.

1. druk de anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op het Invoegen > moduleen plak vervolgens onder VBA-code in het openingsmodulevenster.

VBA: Vlookup-gegevens en retourwaarden uit een andere gesloten werkmap

Private Function GetColumn(Num As Integer) As String
If Num <= 26 Then
GetColumn = Chr(Num + 64)
Else
GetColumn = Chr((Num - 1) \ 26 + 64) & Chr((Num - 1) Mod 26 + 65)
End If
End Function
Sub FindValue()
Dim xAddress As String
Dim xString As String
Dim xFileName As Variant
Dim xUserRange As Range
Dim xRg As Range
Dim xFCell As Range
Dim xSourceSh As Worksheet
Dim xSourceWb As Workbook
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xUserRange = Application.InputBox("Lookup values :", "Kutools for Excel", xAddress, Type:=8)
If Err <> 0 Then Exit Sub
Set xUserRange = Application.Intersect(xUserRange, Application.ActiveSheet.UsedRange)
xFileName = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", 1, "Select a Workbook")
If xFileName = False Then Exit Sub
Application.ScreenUpdating = False
Set xSourceWb = Workbooks.Open(xFileName)
Set xSourceSh = xSourceWb.Worksheets.Item(1)
xString = "='" & xSourceWb.Path & Application.PathSeparator & _
"[" & xSourceWb.Name & "]" & xSourceSh.Name & "'!$"
For Each xRg In xUserRange
Set xFCell = xSourceSh.Cells.Find(xRg.Value, , xlValues, xlWhole, , , False)
If Not (xFCell Is Nothing) Then
xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row
End If
Next
xSourceWb.Close False
Application.ScreenUpdating = True
End Sub
Opmerking:: Deze VBA retourneert waarden in een kolom die 2 kolommen achter de geselecteerde kolom staat. Ik selecteer bijvoorbeeld kolom B bij het toepassen van deze VBA, waarden zullen terugkeren in kolom D.Als u de bestemmingskolom moet wijzigen, zoek dan de code op xRg.Offset (0, 2) .Formula = xString & GetColumn (xFCell.Column + 1) & "$" & xFCell.Row en vervangen 2 naar een ander nummer als je nodig hebt.

3. druk de F5 toets of klik op de lopen knop om deze VBA uit te voeren.

4. Geef in het openingsdialoogvenster het gegevensbereik op dat u wilt opzoeken en klik op OK knop.

5. Selecteer nu de werkmap waar u waarden wilt opzoeken in het dialoogvenster Selecteer een werkmap openen en klik op de Open knop.

Nu worden alle geselecteerde waarden opgezocht in de opgegeven gesloten werkmap en worden de bijbehorende waarden geretourneerd in de opgegeven kolom. Zie screenshot:


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-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 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 elke dag honderden muisklikken!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    leigh_87 · 2 years ago
    Hi this works great thanks! Would it be at all possible to show me how i would change the code if i have the workbook open that i would like to lookup the data in?