VBA in Array mit .find suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim ZE Dim RowsCount ZE = 0 RowsCount = 48 Do ZE = Application.Match("*uns*", Range(Cells(ZE + 1, 1), Cells(RowsCount, 1)), 0) If VarType(ZE) = vbError Then Exit Do Debug.Print ZE & " " & Cells(ZE, 1).Value Loop End Sub

"Appliction.Match auf eine Tabelle setzt voraus, dass das entsprechende Blatt das aktive Blatt ist."
das ist Unsinn. du musst nur die Zellbereiche vollständig mit Angabe des Tabellenblatts referenzieren.
hierbei ist zu beachten, dass das Blatt vor jedem Cells, Range, Columns oder Rows stehen muss, auch bei Range(Cells, Cells) und da wird es meistens vergessen, aber das Blatt muss vor die Cells
falsch ist TabX.Range(Cells(), Cells())
richtig ist: Range(TabX(Cells(), TabX(Cells())
oder man verwendet Resize zum erstellen eines Zellbereichs: TabX.Cells(x, y).Resize(AnzZeilen, AnzSpalten)
das spart die doppelte Angabe des Blattes.
wenn du ein Array hast, kannst du Application.Match auch verwenden, wenn:
a) das Array eindimensional ist
b) das Array zweidimenional ist, aber eine Dimension nur aus einem Element besteht (Vektor = eine Zeile oder eine Spalte)
bei Match mit Array beginnt die Suche immer am Anfang. Es ist nicht möglich die Suche ab einer bestimmten Arrayposition zu beginnen (außer, die Hilfe sagt was anderes)
aber wenn du die Werte in einem Array hast, kannst du auch einfach per Schleife durchs Array laufen und dir die gesuchten Werte ausgeben lassen, das ist dann genauso schnell und die Schleife brauchst du bei Mehrfachsuche ja sowieso.
Application.Match ist bei Arrays nur sinnvoll, wenn man nur einen bzw das erste Auftreten eines Wertes sucht, oder wenn die Liste sehr groß und sortiert ist.
dann kann man die andere Variante von Match verwenden (3. Parameter = 1), welche aufgrund der binären Suche für sortierte Daten nochmal um welten schneller ist als eine Suchschleife.
Gruß Daniel

Hallo Daniel,
vielen Dank für Deine Aufklärung. Diese Schreibweise mit dem Blatt habe ich bisher noch nicht gesehen; das war neu für mich. Natürlich habe ich das sofort umgesetzt, und das von mir beschriebene Problem mit der aktiven Tabelle gibt es nicht mehr.
Danke auch für den Hinweis, dass eine Array immer von Anfang an durchsucht wird. Dann kommt diese Art der Ermittlung für mich nicht in frage.
Bleiben also 4 Varianten:
1. Mit Application.Match durch das Tabellenblatt
2. Mit Loop und Instr() durch das Tabellenblatt
3. Mit Loop durch den Array, wobei dieser nur einmal geladen wird
4. Mit Loop durch den Array, wobei dieser bei jedem Suchlauf neu gelanden wird.
Ich habe alle 4 Varianten jeweils 100 mal getestet und komme dann zu folgenden Aussagen:
Anzahl der zu durchsuchenden Zeilen: 3912
Variante 1: im Schnitt 0,02234 Sekunden pro Suchlauf
Variante 2: im Schnitt 0,03469 Sekunden pro Suchlauf
Variante 3: im Schnitt 0,00156 Sekunden pro Suchlauf
Variante 4: im Schnitt 0,00157 Sekunden pro Suchlauf
Fazit: für mich kommt nur Variante 4 in frage; der Unterschied zwischen 3 und 4 ist sehr klein.
Bei Instr() wird auf einen Zeichenstring getestet; deshalb wurden hier auch nur 154 Treffer erzielt; bei Match wurde kein Unterschied zwischen Klein- und Großbuchstaben gemacht und deshalb 27 weitere Treffer ermittelt.
Ich habe die Logik in einer eigenen Funktion gelöst. Jetzt werde ich die Funktion mit dem neuen Wissen erweitern. Dabei gibt es bereits die Option, ob Matchcase eine Rolle spielt.
Nachdem ich nun die Zeilen kenne, in denen der von mir gesuchte Begriff zu finden ist, werden nun alle Treffer überprüft, Dabei wird auch die Schreibweise geprüft, Nur solche Treffer, welche nicht durch den "Raster" fallen, werden an den Aufrufer der Funktion zurückgegeben. Aber diese Logik besteht ja bereits in meiner bisherigen Funktion.
Ich habe eine Mappe mit den 4 Varianten erstellt. Die Datenmenge ist kleiner und jeder sollte sie aus seiner Schulzeit kennen.
Die Mappe ist hier zu finden: https://www.herber.de/bbs/user/136943.xlsm
Gruß
W H21

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

207 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA in Array mit .find suchen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

207 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread