Schnellere Suche
11.04.2009 11:37:37
Hans
nach Fund wird einfach die Zelle markiert. Als "zahl" ist der Suchbegriff deklariert.
Dies kann ich auf folgenden zwei Arten machen :
A)
Range("A:A").Select
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = zahl Then
Cells(i, 1).Select
GoTo weiter
End If
Next
B)
Range("A:A").Select
Selection.Find(What:=zahl, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
Das Problem ist, das der Fall A sehr lange dauert und dass bei Fall B ein Abbruch kommt falls die zahl nicht existiert.
Kann mir jemand helfen dass ich es ohne Abbruch schnell hinbekomme :D
Viele Grüße
Hans