Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Msgbox(suchen/abbrechen)

Msgbox(suchen/abbrechen)
19.06.2002 15:28:05
WolfgangM
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Msgbox(suchen/abbrechen)
19.06.2002 16:56:37
Jan Kittler
vielleicht so:

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

oder so:
19.06.2002 16:59:31
Jan Kittler
If MsgBox("Weitersuchen", vbYesNoCancel + vbQuestion) <> vbYes Then Exit Do
Re: oder so:
21.06.2002 07:40:35
WolfgangM
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
Anzeige
Re: oder so:
21.06.2002 12:48:02
WolfgangM
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige