Aus Tabelle mehrere Werte suchen

Hallo,
ich steh mir auf dem Schlauch, ich habe eine Arbeitsmappe mit 2 Tabellenblättern, in dem einen Tabellenblatt (Stamm) stehen Daten, welche in einer Schleife nach und nach abgearbeitet werden sollen und dabei sollen Daten aus einem zweiten Tabellenblatt (Suchen) genutzt werden.
Je Zeile in Tabelle (Stamm) soll der Wert in Spalte 14 (Bundesland) in der Tabelle (Suchen) in Spalte 5 gesucht werden, wenn er gefunden wurde, dann soll in Spalte 7 ein vorgegebener Wert (in dem Fall 3T) gesucht werden und wenn dieser gefunden wird in Spalte 8 der höchste Werte der zu den beiden vorherigen Suchen passt, dann aus der Spalte 12 der Wert genommen, in der Beispieldatei anbei wäre das dann für Zeile 2 aus der Tabelle (Stamm) der Wert 451 aus Zeile 5 Spalte 12
Mir fehlt die idee wie ich das in VBA umsetzen kann
https://www.herber.de/bbs/user/154483.xlsm
Danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
wenn du es als VBA brauchst, dann vielleicht so:
1. füge diesen Code in ein allgemeines Modul ein:


Function MeineSuche(BundesLand As String, Typ As String)
Static dicWert
Static dicMax
Dim ID As String
Dim arr, z As Long
If VarType(dicWert) = vbEmpty Then
Set dicWert = CreateObject("Scripting.Dictionary")
Set dicMax = CreateObject("Scripting.Dictionary")
arr = Range("Tabelle1").Value
For z = 2 To UBound(arr, 1)
ID = arr(z, 5) & "|" & arr(z, 7)
If dicMax(ID)

wenn du jetzt einen Wert brauchst, führst du einfach die Funktion aus


=MeineSuche("Rheinlandpfalz", "3T")

und du bekommst den Wert.
Du kannst diese Funktion in VBA verwenden oder auch in einer Formel in einer Excelzelle (Schreibweisen natürlich anpassen) und dann statt den Fixwerten natürlich Variablen oder Zellbezüge einsetzen.
Achtung, diese Funktion ist darauf ausgelegt, dass die Tabelle im Blatt Suchen statisch ist und sich der Inhalt nicht verändert.
die Werte werden nur einmalig zu Beginn beim ersten Ausführen der Funktion ins Dictionary eingelesen und bleiben dann so.
sollte sich in der Tabelle was ändern und das muss aktualsiert werden, müsste man im VBA-Editor einmal den "Zurücksetzen"-Button klicken und dann das Makro nochmal ausführen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus Tabelle mehrere Werte suchen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread