Zeile per VBA mittels mehrerer Kriterien suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HI
gute Performance gibt folgendes:
1. in einer Hilfsspalte (E) die Werte aus Spalte A, B und C zu einem Begriff zusammenfassen: =A1&"-"&B1&"-"&C1
2. ganze Tabelle nach Hilfsspalte sortieren (oder eben nach Spalte A, B und C)
3. Ausgeben des Wertes aus Spalte D dann mit =Index(D:D;Vergleich("A-1-b";E:E;1))
wenn geprüft werden muss, ob die gesuchte Kombination überhaupt vorhanden ist, dann:
=Wenn(SVerweis("A-1-b";E:E;1;1)="A-1-b";index(D:D;Vergleich("A-1-b";E:E;1);"")
bei 100.000 Elementen brauchst du einen schnellen Suchalgorhytmus und den bekommst du mit Vergleich oder SVerweis, wenn die Daten aufsteigend sortiert sind.
als VBA sieht das dann in etwa so aus:

dim Zeile as long
dim Ergebnis as String
dim SuchWert as String
With AcitveSheet.UsedRange
with .columns(.columns.count + 1)
.formular1c1 = "=RC1&""-""&RC2&""-""&RC3"
.formula = .value
.EntireRow.Sort Key1:=.cells(1, 1), order1:=xlascending, header:=xlguess
end with
end with
SuchWert = "A-1-b"
Zeile = Worksheetfunction.Match(SuchWert, Range("E:E"), 1)
If Cells(Zeile, 5) = SuchWert then
Ergebnis = Cells(Zeile, 4)
Else
Ergebnis = ""
End If

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Zeile per VBA mittels mehrerer Kriterien suchen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile per VBA mittels mehrerer Kriterien suchen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread