Sverweis mit mehreren Suchkriterien und Ergebnisse

Rene · 2015-06-29T10:48:27+00:00

Hallo, Ich habe ein kleines Problemchen bei der Arbeit, welches sich glaube ich nur via VBA lösen lässt. Lasse mich aber auch gerne eines anderen belehren. Leider habe ich kaum VBA-Kenntnisse. zum Problem: Ich habe eine Excel-Datei mit 2 Tabelllenblättern in denen jeweils eine Tabelle mit etwa 20 tausend Zeilen steht. Sowohl in Tabelle1 als auch in Tabelle2 habe ich die Spalte "Artikelnummer" mit den jeweiligen Artikelnummern sowie die Spalte "Vorgangsnummer" ich möchte nun nach diesen 2 Kriterien die ich in Tabelle1 Zeile1 entnehme die dazugehörigen informationen aus Tabelle 2 suchen (mehrere Ergebnisse möglich) Jetzt kommt der komplizierte Teil. Die Ergebnisse die mehrfach vorkommen müssen in neue Zeilen in Tabelle 1 eingefügt werden. Hier ist noch eine Beispieltabelle zur berdeutlichung des Problems: https://www.herber.de/bbs/user/98538.xlsx Vielen Dank schonmal im Vorraus für die Hilfe. Mit freundlichen Grüßen, Rene

Hallo Werner,
Tut mir leid, du hast recht ich habe vergessen zu erwähnen, dass ich wirklich nur die genauen Treffer übertragen will. also nur die Fälle in denen beide Suchkriterien zutreffen..
Ich habe es bereits mit einem Sverweis versucht der etwas umgeschrieben wurde und habe versucht diesen dann auf 2 Kriterien zu beziehen. Klappt aber auch nicht so ganz...
Hier ist der umgeschriebene Sverweis:

Public Function SVERWEIS2(Kriterium As String, _ Bereich As Range, _ SuchSpalte As Integer, _ ErgebnisSpalte As Integer, _ Optional Unikate As Boolean = True, _ Optional Trenner As String = ", ") As String 'Autor: Ransi Dim arrTmp Dim L As Long Dim Mydic As Object arrTmp = Bereich Set Mydic = CreateObject("Scripting.Dictionary") If Unikate = True Then For L = 1 To UBound(arrTmp) If arrTmp(L, SuchSpalte) = Kriterium Then Mydic(arrTmp(L, ErgebnisSpalte)) = 0 Next SVERWEIS2 = Join(Mydic.keys, Trenner) Else: For L = 1 To UBound(arrTmp) If arrTmp(L, SuchSpalte) = Kriterium Then Mydic(L) = arrTmp(L, ErgebnisSpalte) Next SVERWEIS2 = Join(Mydic.items, Trenner)
End If End Function

Den habe ich dann in der Syntax so angewendet um die 2 Kriterien abzudecken:

=SVERWEIS2(Suchkriterium1;WENN(Suchspalte2=Suchkriterium2;Suchmatrix;);Suchspalte1;Ergebnisspalte; Wahr;"/")

Das ganze klappt aber leider nicht..Ich kriege ständig die Fehlermeldung"#WERT!".
Entschuldige nochmals die falsche Ausweisung meines Threads.
Grüße, Rene

HI
mit Zählenwenns markieren und dann löschen.
wenns von der Datenmenge her zuviel für Zählenwenns ist, dann:
per Formel Vorgangsnummer und Artikelnummer zu einem Begriff zusammenfassen
Tabelle nach diesem Zusammengefassten Suchbegriff sortieren.
Per SVerweis mit 4. Parameter = Wahr überprüfen, ob der Suchbegriff in der anderen Tabelle vorhanden ist (Suchwert = Rückgabewert).
Zum löschen eine Formel in einer Hilfsspalte erstellen, die die Werte die gelöscht werden müssen mit 0 markiert und die die stehenbleiben müssen mit der aktuellen Zeilennummer.
Dann mit Duplikate-Entfernen die Zeilen mit 0 löschen (in die Überschriftenzeile der Hilfsspalte kommt ebenfalls die 0)
Wenn man das Prinzip mal verstanden hat, hat man auch ohne Makro die grössten Listen im Griff und kann sie schnell bearbeiten und zusammenfassen.
Makro ist dann nur notwendig, wenn eine wiederholte Bearbeitung erforderlich ist.
dieses Makro ist dann aber relativ einfach erstellt, weil man ja nur noch diese Schritte nachprogrammieren muss und man dabei vom Recorder unterstützt wird.
Gruß Daniel

Tabelle1	Artikelnummer	Vorgangsnummer	Info
123	456
789	012

Tabelle2	Artikelnummer	Vorgangsnummer
123	456	A
123	456	B
789	012	C

Sverweis mit mehreren Suchkriterien und Ergebnisse

Forumthread: Sverweis mit mehreren Suchkriterien und Ergebnisse

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial