Hilfe bei Suchmakro
12.12.2003 07:49:53
Annette
Bin leider noch völliger VBA-Laie, vielleicht kann mir jemand ein bißchen weiterhelfen
Ich habe folgendes Suchmakro, das prima funktioniert:
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:=xlPart, _
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
Nur zwei Dinge würden mir noch fehlen:
Wenn ich bei der Eingabemaske auf Abbrechen klicke, sucht es trotzdem erstmal einen Eintrag, erst ein weiterer Klick auf Nein beendet die Suche. Kann man es auch so einrichten, daß bei Abbrechen das Eingabefeld direkt geschlossen wird?
Außerdem wäre es schön, wenn man nach beendeter Suche und der Meldung "Keine neue Fundstelle" automatisch wieder auf die Ausgangsseite zurück gelangt, um von dort aus ggf. eine neue Suchabfrage starten zu können.
Wäre das machbar?
LG Annette