Flexible Suche in einer Range
17.10.2012 15:32:46
VG
derzeit suche ich über .range.find(what:=str) den entsprechenden Eintrag in einer Tabelle.
Über .findnext werden auch entsprechende Duplikate gefunden.
Nun möchte ich aber alle Werte finden, die mit dem entsprechenden Suchstring beginnen, bzw. diesen enthalten. Wie muss ich da vorgehen?
Workbooks.Open ThisWorkbook.Path & "\Suchfile.xls", ReadOnly:=True
str = "ABC"
Set rng = Worksheets("sheet1").Range("E:E").Find(what:=str)
Set rng = Worksheets("sheet1").Range("E:E").FindNext(rng)
Es sollen also auch Einträge gefunden werden, wenn z.B. "ABC-D" darinsteht.
Freue mich auf Rückinformationen.
Grüße,
VG
Anzeige