suchen/weutersuchen
19.06.2002 09:34:47
WolfgangM
wie kann ich in einer MsgBox auf Klick "ja" so lange weitersuchenlassen(doppelte Einträge), bis der richtige Eintrag gefunden wurde, und wenn ich dann auf "nein" klicke, soll das Makro ausgeführt werden.komme nicht weiter.(Makro zusammengestellt aus dem Forum)
Sub weitersuchen()
Static rng As Range
Static strAddress As String, strFind As String
strFind = InputBox("Bitte Suchbegriff eingeben:", , strFind)
Set rng = Cells.Find(strFind, LookAt:=xlPart, LookIn:=xlFormulas)
If strFind = "" Then Exit Sub
If Not rng Is Nothing Then
strAddress = rng.Address
End If
Do
Application.Goto rng, True
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set rng = Cells.FindNext(After:=ACTIVECELL)
If rng.Address = strAddress Then Exit Do
rng.Select
Cells(ACTIVECELL.Row, 1).Formula = Date
Cells(ACTIVECELL.Row, 1).Select
If rng Is Nothing Then
Beep
MsgBox "Daten wurden nicht gefunden!"
Exit Sub
End If
Loop
End Sub