Weitersuchen
05.06.2002 01:25:50
Daniel R.
Mit dem folgenden Code möchte ich in Spalte A:A nach dem Wert "a" weitersuchen und die entsprechende Zelle aktivieren:
Public Sub weitersuchen()
Dim suchbereich As Range
Dim suchwert as Variant
suchwert = "a"
Set suchbereich = Worksheets(1).Range("a:a").Find(What:=suchwert, Lookat:=xlWhole)
Set suchbereich = Worksheets(1).Range("a:a").FindNext(suchbereich)
suchbereich.Find(What:=suchwert, Lookat:=xlWhole).Activate
End Sub
Der Code findet zwar jeweils das zweite "a" von oben. Bei erneutem Ausführen passiert aber das selbe, d.h. es wird nicht nach weiteren, in der Spalte enthaltenen Übereinstimmungen gesucht. Was mache ich falsch?
Besten Dank für eine Antwort.
Daniel R.