Ich suche in einer Datei mit ca. 18000 Zeilen ueber folgende Suche immer wieder einzelne Werte:

Range(Cells(1, 6), Cells(zeile2, 6)).Select

Selection.Find(What:=suchmich, After:=ActiveCell, LookIn:=xlValues,Lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Select

Frueher (als noch weniger Zeilen zu durchsuchen waren) ging das RatzFatz, jetzt aber braucht er fuer 50 Werte mehr als ne halbe Stunde... Wenn ich Cells.Find... mache dauerts logischerweise noch laenger. Schraenke ich den Suchbereich wie oben ein, beschleunigt das etwas, aber eben nicht viel...

Also: Wer kennt den ultimativen Indianertrick der hier die Performance wieder hochschraubt?

Schon im Voraus Danek fuer die Hilfe
Claus