Makro Problem
19.03.2007 12:24:00
ABO
Ich habe folgendes Makro mit dem ich in meiner Exceldatei Suchen lassen kann.
Jedoch will ich das wenn ich das Makro gestartet habe und dann wieder auf „Abrechen“ gehe
das ich direkt zu meiner Excel Mappe zurück komme und nicht noch die Msg-Box kommt (Weitersuchen Ja / Nein).
Kann mir jemand bei meinem Problem helfen?
Im Voraus vielen Dank
ABO
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 Suchen", _
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
Anzeige