Office: suchen im Array

Hallo,

ich habe ein Array mit Werte von ca 30000 Zeilen und 3 Spalten gefüllt.

Jetzt möchte ich aus dem Array in der ersten Spalte einen Wert suchen und mir den Index als Ergebnis liefern. Habe gedacht das es geht ohne eine Schleife und bin mit folgenden Code leider nicht weiter gekommen


Sub test()

Dim arrNrBezGef
suchen = 300
lz = Range("A1").End(xlDown).Row
arrNrBezGef = Range("a1:c" & lz).Value

erg = Application.Match(suchen, arrNrBezGef, 0)
End Sub

Hat jemand ein Tipp für mich

danke + Gruß
nolle

:)

 

Moin,

Application.Match funzt nur in eindimensionalen Arrays.
Versuch es mal so:

Code:

 

HAllo Nolle

Option Explicit

Sub test()

Dim arrNrBezGef As Variant
Dim suchen
Dim lz As Long
Dim erg As Variant
Dim arrTmp As Variant

suchen = 300
lz = Range("A1").End(xlDown).Row
arrNrBezGef = Range("A1:C" & lz).Value
arrTmp = WorksheetFunction.Index(arrNrBezGef, 0, 1) 'Spalte1
erg = Application.Match(suchen, arrTmp, 0)

If Not IsError(erg) Then
MsgBox erg
Else:
MsgBox "nix gefunden"
End If

End Sub


Ich habs nicht getestet, aber das Durchlaufen eines unsortierten Arrays ist (glaube ich) schneller als match().

ransi

 

Hallo Steffen, hallo Ransi

danke Euch für die schnelle Antwort.

Steffen du schreibst
Application.Match funzt nur in eindimensionalen Arrays

wenn ich mir aber das Lokalfenster ansehe ist myArr aber ein 2 dim Array.
Als Ergebnis bekomme ich Fehler 2042

Ransi mit Deinem Code komme ich zu richtigen Ergebnis. Das Array ist sortiert.
Leider weiss ich nicht warum ein arrTmp angelegt wird, kannst mir das vielleicht nochmal erklären

Gruß
nolle

 

Hi Nolle,

ich bin zwar nicht ransi, aber da mich das Thema ebenfalls brennend interessiert und ich nach einer praktikablen Lösung gesucht habe, habe ich natürlich mitgelesen. arrTemp ist ein einspaltiges Array, in welches die betreffende Suchspalte aus dem mehrspaltigen Array übergeben wird. In diesem einspaltigen Array lässt sich dann mittels Match die Position des gesuchten Wertes problemlos ermitteln.

Du könntest theoretisch bereits zu Beginn die Werte aus der Spalte A in ein zweites Array einlesen, wenn du dir sicher bist, dass du nur in dieser Spalte des Bereichs suchen willst. Allerdings ist die Übergabe aus dem mehrspaltigen Array wesentlich flexibler, da du dich auch später im Code z.B. in Abhängigkeit von irgendeiner Bedingung für eine bestimmte Spalte entscheiden kannst (falls das erforderlich sein sollte). Möglicherweise ist die Übernahme der Spalte aus dem Array auch schneller als aus dem Tabellenblatt (habe ich nicht getestet).

 

HAllo

Wie Steffen und Karin schon sagten:
Application.Match() funktioniert nur in einspaltigen Arrays.
arrTmp habe ich nur erstellt damit das Ganze etwas übersichtlich wird.
Ohne arrTmp wäre das so:

erg = Application.Match(suchen, WorksheetFunction.Index(arrNrBezGef, 0, 1), 0)

Da kann man schonmal den Überblick verlieren ;-)

Du schriebst:
"Das Array ist sortiert."

Dann gibt es eine richtig schnelle Suchroutine.
Die funktioniert genauso wie Zahlenraten.
Das Array wird solange halbiert bis der Wert gefunden wurde.
Binäre Suche – Wikipedia

Ich such mal den Code...

ransi

 

Hallo

das lag vermutlich daran ,dass ich dein Suchwert fälschlicherweise als String im Suchparameter eingegeben habe...
Wenn du im Suchparameter nur die Zahl 300 eingibst sollte es laufen .

hier noch eine Variante mit FIND die wesentlich schneller ist:


Code:

 

Hallo Steffen,

super. Muß mich jetzt nur noch entscheiden welche Version ich nehme. Die von Ransi oder von dir. Sind beide sehr schnell.
Zum Suchen mit der Find Methode wird ja nicht einmal ein Array benötigt.

Gruß
nolle