Esffektive Suche mit Application.Match ?

Hallo an die Community,
da die Suche von Werten in einer Tabelle bei meinem Projekt eine zentale Rolle spielt, bin ich sehr an einer effektiven Suche interssiert. Bisher habe ich ein Makro, das Zelle für Zelle mit:
For i = 1 To Suchbereich.Columns.Count
If Suchbereich.Zelle(3,i).Value = Suchwert then
...
Exit For
...
End If
Next i
nach einem Wert sucht.
Wäre es vielleicht schneller/effektiver die Funktion Application.Match einzusetzen? Hinweis: die Werte in der Tabelle sind nicht geordnet. Außerdem ignoriert Application.Match Groß- und Kleinschreibung. Wie müsste man eine Suche mit Application.Match programmieren, die eine Groß- und Kleinschreibung beachtet und ggf. bei fehlender Übereinstimmung weiter sucht (ab da wo sie einen möglichen Treffer gefunden hat).
Mich würde interessieren, ob das dann am Ende schneller/effektiver ist als das Makro.
Danke und Gruß
Kuttel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Ersetzen() Dim Sh As Worksheet Dim C Dim SuchWert As String Dim ErsetzWert As String Dim SuchBereich As Range Set Sh = ActiveSheet Set SuchBereich = Sh.Rows(3) SuchWert = "Alt" ErsetzWert = "Neu" Set C = SuchBereich.Find(SuchWert, LookIn:=xlValues) If Not C Is Nothing Then Do 'Mach was damit... z.B. C.Value = ErsetzWert Set C = SuchBereich.FindNext(C) Loop While Not C Is Nothing End If End Sub

Hi
wenn die Daten nicht sortiert sind und Gross-/Kleinschreibung beachtet werden muss, wäre die effetkivste Suche mit Hilfe der .FIND-Funktion

Set Zelle = Suchbereich.Rows(3).Find(What:=Suchwert, LookAt:=xlwhole, LookIn:=xlvalues,  _
MatchCase:=true)
If Zelle is Nothing then Msgbox Suchwert & " nicht vorhanden."

Application.Match ist dann sinnvoll, wenn die Daten sortiert sind, weil es dann eine wesentlich schnellere Suchmethode verwenden kann.
Wenn du denselben Suchbereich sehr oft verwenden willst, ohne dass sich die Inhalte verändern, kannst du auch so vorgehen:
1. Lese den Suchbereich in ein Array ein
2. Gehe mit einer Schleife durch das Array und vergleiche die Werte.
Schleifen über Arrays sind sehr schnell (ähnlich schnell wie die .Find-funktion) Zeit sparst du gegenüber .Find, weil du das Array nicht für jede Suche erneut einlesen musst:

Dim arrSuche
dim i as long
arrSuche = Suchbereich.Rows(3)
for i = 1 to Ubound(arrSuche, 2)
if arrSuche(i, 2) = Suchwert Then Exit For
Next

gruß Daniel

Beliebteste Forumthreads (12 Monate)

Esffektive Suche mit Application.Match ?

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread