Suchfunktion erstellen
16.11.2003 14:06:22
Manfred
ich möchte eine Suchfunktion in eine Arbeitsmappe mit mehreren Tabellen einfügen. Ich habe es mit folgendem Code versucht. Das Problem ist, es werden nicht alle Tabellen abgesucht und wenn ein Treffer gefunden wurde, wird die betreffene Zelle automatisch als erste Zelle oben links angezeigt. Ich hätte aber gerne, dass alle Tabellen durchsucht und das das Ergebnis mitten im Bildschirm angezeigt wird, oder zumindest genau dort, wo es sich auf der Tabelle befindet. So, hier der Code:
Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Bitte Suchbegriff 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 neue Fundstelle!"
End Sub
Ich muß auch nicht genau diesen Code verwenden, wenn es eine viel einfachere Lösung gibt, wäre ich natürlich dankbar für alle Info´s.
MfG
Manfred