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

or

Wie suche / finde ich Werte in einer anderen Arbeitsmappe?

In diesem Artikel wird erläutert, wie Sie Werte nachschlagen und Daten aus einer anderen Arbeitsmappe zurückgeben und wie Sie Werte aus einer anderen Arbeitsmappe suchen / suchen. Hier werde ich drei Lösungen im Detail vorstellen.


Vlookup-Daten und Rückgabewerte aus einer anderen Arbeitsmappe in Excel

Sie erstellen beispielsweise eine Obstkauftabelle in Excel, und jetzt müssen Sie die Früchte aus einer anderen Arbeitsmappe anzeigen und die entsprechenden Preise wie in den folgenden Screenshots zurückgeben. Hier werde ich Ihnen helfen, es mit der VLOOKKUP-Funktion in Excel zu lösen.

1. Öffnen Sie beide Arbeitsmappen, aus denen Sie Werte anzeigen und in denen Sie Werte zurückgeben.

2. Wählen Sie eine leere Zelle aus, für die Sie den Preis zurückgeben möchten, und geben Sie die Formel ein = VLOOKUP (B2, [Price.xlsx] Sheet1! $ A $ 1: $ B $ 24,2, FALSE) Ziehen Sie den Füllgriff hinein, um diese Formel nach Bedarf auf den Bereich anzuwenden.

Einschränkungen:
(1) In der obigen Formel ist B2 die Frucht, nach der Sie in einer anderen Arbeitsmappe suchen werden. Price.xlsx gibt den Dateinamen der Arbeitsmappe an, nach der Sie suchen werden. Sheet1 bedeutet den Blattnamen, nach dem Sie suchen werden, und A $ 1 : $ B $ 24 ist der Bereich, aus dem Sie nachschlagen werden. Sie können sie nach Bedarf ändern.
(2) Nach dem Schließen der Arbeitsmappe, von der Sie nachgeschlagen haben, wird die Formel automatisch auf aktualisiert = VLOOKUP (B2, 'W: \ test \ [Price.xlsx] Sheet1'! $ A $ 1: $ B $ 24,2, FALSE), W: \ test \ ist der Speicherpfad der Arbeitsmappe, von der Sie nachgeschlagen haben.

Bisher sind alle Preise korrekt zurückgekehrt, wie im linken Screenshot gezeigt. Diese Preise werden automatisch aktualisiert, wenn Sie die ursprüngliche Arbeitsmappe nach Änderungen nachgeschlagen haben.

Band notieren Formel ist zu kompliziert, um sich zu erinnern? Speichern Sie die Formel als automatischen Texteintrag für die zukünftige Wiederverwendung mit nur einem Klick!
Lese mehr ...     Kostenlose Testversion

Vlookup-Daten und Rückgabewerte aus einer anderen geschlossenen Arbeitsmappe mit VBA

Es kann ein Wurf sein, der verwirrt ist, den Speicherpfad, den Dateinamen und das Arbeitsblatt in der VLOOKUP-Funktion zu konfigurieren. Diese Methode führt eine VBA ein, um sie leicht zu lösen.

1. Drücken Sie die Taste Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

2. Klicken Sie auf die Insert > Modulund fügen Sie dann den folgenden VBA-Code in das sich öffnende Modulfenster ein.

VBA: Vlookup-Daten und Rückgabewerte aus einer anderen geschlossenen Arbeitsmappe

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
Hinweis: Dieser VBA gibt Werte in einer Spalte zurück, die 2 Spalten hinter der ausgewählten Spalte liegt. Zum Beispiel wähle ich beim Anwenden dieses VBA Spalte B aus. Die Werte werden in Spalte D zurückgegeben. Wenn Sie die Zielspalte ändern müssen, finden Sie den Code heraus xRg.Offset (0, 2) .Formula = xString & GetColumn (xFCell.Column + 1) & "$" & xFCell.Row und ersetzen 2 zu einer anderen Nummer, wie Sie brauchen.

3. Drücken Sie die Taste F5 Taste oder klicken Sie auf Run Schaltfläche, um diese VBA auszuführen.

4. Geben Sie im Eröffnungsdialogfeld den Datenbereich an, nach dem Sie suchen möchten, und klicken Sie auf OK .

5. Wählen Sie nun die Arbeitsmappe aus, in der Sie im Eröffnungsdialogfeld Arbeitsmappe auswählen nach Werten suchen möchten, und klicken Sie auf Offenheit .

Jetzt werden alle ausgewählten Werte in der angegebenen geschlossenen Arbeitsmappe nachgeschlagen und die entsprechenden Werte in der angegebenen Spalte zurückgegeben. Siehe Screenshot:


Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
officetab unten
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?