Suchfunktion verfeinern
15.01.2004 18:48:47
Manfred
ich habe heute morgen schon einmal nach einer Suchfunktion gefragt. Nun hat mir K.Rola folgende Funktion genannt. Die Suchfunktion funktioniert aber gefundene Stellen werden mir als aktuelle Zelle immer links oben gezeigt. Kann man in der Funktion etwas ändern, damit mir die gefundene Zelle mitten auf dem Bildschirm, bzw. dem Blatt angezeigt wird?
Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As Variant
sFind = InputBox("Bitte Namen eingeben:")
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Weiter", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine Besuchstermine gefunden!"
End Sub
Grüße
Manfred