suchen/weutersuchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: suchen/weutersuchen
von: WolfgangM
Geschrieben am: 19.06.2002 - 09:34:47

Guten Morgen
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
nach oben   nach unten

Re: suchen/weutersuchen
von: Wolfgang
Geschrieben am: 19.06.2002 - 09:37:49

sorry zu schnell abgeschickt,
natürlich Danke für eure Mühe im voraus

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "(Command-)Buttons Makro zuweisen"