Office: Daten in anderer Exceldatei suchen und Zellenwerte ausgeben

reborna · 22. Februar 2014

Hallo zusammen,

ich bräuchte mal eure Hilfe und habe dazu 2 Anlagen als Beispiel angefügt.

Ich habe einmal eine Art "Datenbank" in Form einer Excel-Datei mit vielen Einträgen, die sich dauern ändern können. Dies ist die "quelle.xls".

Nun möchte ich im eigentlichen Arbeitsblatt (Datei "eingabe_ausgabe.xls") Werte eingeben und es soll in der anderen Datei nach diesen Werten / Kombinationen gesucht werden. Wenn es gefunden wird, dann sollen die Werte, die ein paar Reihen rechts daneben sind, in der eigentlichen Datei ausgegeben werden.

Sieht wie folgt aus:

"eingabe_ausgabe.xls"
=> In Zelle B1 (feste Zelle) gebe ich immer die Marke ein, welche dann beim Suchvorgang fest ist. Ab der Zelle A2 und absteigend gebe ich Modelle ein, die Menge kann hierbei variieren.
=> Nun soll in der Datei "quelle.xls" nach genau diese Kombis gesucht werden. Sprich dort muss in Spalte A nach der Marke aus "eingabe_ausgabe.xls"-Zelle B1 gesucht werden, danach weiter in Spalte B nach den passenden Modell aus "eingabe_ausgabe.xls"-Zelle A2 (und abwärts). Bei Treffern soll er die dazugehörigen Namen aus "eingabe_ausgabe.xls" (Spalte C - E) in der eigentlichen Datei "eingabe_ausgabe.xls" in den Spalten B bis D ausgeben, natürlich passend zur Marke und zum Modell.

Hoffe das ist nicht zu kompliziert erklärt. Vielleicht hat ja jemand eine Lösung. *Smilie

Auf jeden Fall schonmal vielen lieben Dank!

:)

Beverly · 24. Februar 2014

Hi,

kopiere folgenden Code ins Codemodul der Tabelle1 in eingabe_ausgabe.xls:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
Dim lngAnzahl As Long
Dim lngLetzte As Long
If Target.Address = "$B$1" Then
Application.EnableEvents = False
lngLetzte = Columns(1).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
If lngLetzte = 1 Then lngLetzte = 2
Range(Cells(2, 1), Cells(lngLetzte, 4)).ClearContents
With Workbooks("quelle.xls").Worksheets("Tabelle1")
Set rngZelle = .Columns(1).Find(Target, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
lngAnzahl = Application.CountIf(.Columns(1), Target)
.Range(.Cells(rngZelle.Row, 2), .Cells(rngZelle.Row + lngAnzahl - 1, 5)).Copy Range("A2")
End If
End With
Application.EnableEvents = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sobald du in B1 etwas einträgst werden die Daten übertragen. Bedingung ist, dass beide Arbeitsmappen geöffnet sind.

Office: Daten in anderer Exceldatei suchen und Zellenwerte ausgeben

Daten in anderer Exceldatei suchen und Zellenwerte ausgeben

Daten in anderer Exceldatei suchen und Zellenwerte ausgeben

Daten in anderer Exceldatei suchen und Zellenwerte ausgeben - Similar Threads - Daten Exceldatei Zellenwerte

Daten Einlesen aus mehre Zellen in Verbindung einer Verbundene Zelle

Excel icon fehlt

Excel Zusammenführen

Daten aus geschlossener Exceldatei einlesen

Dropdown aus Daten in anderer Exceldatei

Zusammenführung von Daten aus mehreren identisch aufgebauten Exceldateien

Daten verschoben- Links in Exceldateien automatisch anpassen