Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

@Nepumuk / Betr. DoEvents

Forumthread: @Nepumuk / Betr. DoEvents

@Nepumuk / Betr. DoEvents
07.02.2003 21:39:00
Bernhard Ebermann
Hallo Nepumuk,

Hier zur Erinnerung meine Frage

>Aus einer UserForm heraus starte ich eine Sub in einem Standartmodul.
>In diesem Modul/Sub läuft jetzt eine ForNext Suchschleife ab.
>Ich möchte diese Suchschleife nun mittels eines Buttons aus der UserForm unterbrechen können.
>Ich habe mit "DoEvents" hin und her probiert.
>Es klappt nicht.

Dein Vorschlag:

For index = 1 To 300000
'Dein Code
DoEvents
If halt Then Exit For
Next


Kam heute erst dazu, Deinen Vorschlag zu testen.
Hat geklapt.

Muß allerdings das entsprechende Stop-Button lange gedrückt halten, bis der Stopvorgang einsetzt.
Dabe das DoEvents-Ereignis schon an mehrere Stellen innerhalb der Schleife gesetzt, da diese etwa 5-7 Sekunden lang läuft.

Danke für Deinen Vorschlag.

Gruß
Bernhard


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: @Nepumuk / Betr. DoEvents
08.02.2003 00:29:14
Nepumuk

Hallo Bernhard,
du kannst auch die Anweisung "If halt Then Exit For" an mehreren Stellen deiner Schleife einbauen. Das du die Taste relativ lange drücken musst, liegt möglicherweise an einem etwas lahmen Rechner.
Gruß
Nepumuk

Re: @Nepumuk / Betr. DoEvents
11.02.2003 19:12:46
Bernhard Ebermann

Hallo Nepumuk,

Prozessor = 1,2 GHz
Daran kann es nicht liegen.
Die Schleife ist einfach zu umfangreich.
Mit der Mehrfachsetzung des DoEvents klappt es dann aber doch in vertretbarem Rahmen.

Danke nochmals für Deine Mühe.

Gruß
Bernhard

Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18