Msgbox(suchen/abbrechen)

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


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Msgbox(suchen/abbrechen)
von: WolfgangM
Geschrieben am: 19.06.2002 - 15:28:05

Hallo, guten Tag
wie muß ich das Makro so umbauen, daß, wenn ich in der MsgBox auf abbrechen klicke, das Makro beendet wird. Mit ja, und nein klappts, nur mit abbrechen nicht da wird weitergesucht.
Sub weitersuchen()
Static rng As Range
Static strAddress As String, strFind As String
strFind = InputBox("Bitte Suchbegriff eingeben:", "Daten suchen", strFind)
Set rng = Cells.Find(strFind, LookAt:=xlPart, LookIn:=xlFormulas)
If strFind = "" Then Exit Sub
If Not rng Is Nothing Then
strAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox("Weitersuchen", vbYesNoCancel + vbQuestion) = vbNo Then Exit Do
Set rng = Cells.FindNext(After:=ACTIVECELL)
If rng.Address = strAddress Then
End If
Loop
End If
If rng Is Nothing Then
Beep
MsgBox "Daten wurden nicht gefunden!"
Exit Sub
End If
rng.Select
Cells(ACTIVECELL.Row, 1).Formula = Date
Cells(ACTIVECELL.Row, 1).Select
End Sub
wer kann mir dabei helfen?
schon mal vielen Dank
Gruß WolfgangM
nach oben   nach unten

Re: Msgbox(suchen/abbrechen)
von: Jan Kittler
Geschrieben am: 19.06.2002 - 16:56:37

vielleicht so:

...
dummy=MsgBox("Weitersuchen", vbYesNoCancel + vbQuestion)
if dummy=vbNo or dummy=vbCancel Then Exit Do
...

nach oben   nach unten

oder so:
von: Jan Kittler
Geschrieben am: 19.06.2002 - 16:59:31

If MsgBox("Weitersuchen", vbYesNoCancel + vbQuestion) <> vbYes Then Exit Do

nach oben   nach unten

Re: oder so:
von: WolfgangM
Geschrieben am: 21.06.2002 - 07:40:35

Guten Morgen Jan,
erstmals vielen Dank für deine Antwort.Leider funkioniert diese Änderung nicht.Gebe ich <> vbyes ein, stopt das Makro beim anklicken von "nein" das weitersuchen(was auch richtig ist), jedoch beim ankl. von "abbrechen", genauso.Und gerade bei "abbrechen" soll das Makro gestoppt werden (Then exit sub).Bei Dummy funkionierts, aber dann habe ich 2x die MsgBox, also muß ich alles 2x ausführen.
vieleicht gibts eine andere Möglichkeit?
Gruß Wolfgang

nach oben   nach unten

Re: oder so:
von: WolfgangM
Geschrieben am: 21.06.2002 - 12:48:02

Hallo Jan,
hat doch noch geklappt, dauert bei mir etwas länger.
habe es so geändert.
dim dummy as variant
Dummy = MsgBox("Weitersuchen", vbYesNoCancel + vbQuestion)
If Dummy = vbNo Then Exit Do
If Dummy = vbCancel Then Exit Sub
ect.
danke nochmals, ich hoffe es ist nun richtig
Gruß WolfgangM

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "in Spalte soll jeder Wert nur einmal erscheinen"