UserForm: Stapelverarbeitungsüberlauf

[Fennek]

Hallo,

in einer UserForm erscheint nach 250-350 Aktionen die Fehlermeldung "Stapelverarbeitungsüberlauf".

Ein deutsch-sprachige Suche war erfolglos (Überlauf oft als Interger-Überlauf)

Alle Objekte wurde mit "set [Obj] = nothing" wieder zerstört.

Hat jemand Erfahrungen mit dieser Problematik?

Danke

Mfg

[RPP63]

Moin Fennek!
Ohne Code nebst Datei nur folgender Hinweis:
Meist kommt dieser Fehler, wenn ein Event in einer Dauerschleife abgearbeitet wird.
Application.EnableEvents = False (an der richtigen Stelle) hilft meist.
Dass Du die Events dann wieder einschalten musst, brauche ich Dir ja nicht zu schreiben.

Ich gehe ja davon aus, dass Du den LZF 28 meinst, den man auch brutal erzwingen kann:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Call Worksheet_Change(Target)
End Sub

Gruß Ralf

[Fennek]

Hallo Ralf,

es ist klar, dass die Informationen minimal sind.

Es werden in Outlook (kein EnAbleEvent) viele hundert Emails verarbeitet, je nach Inhalt rufen sich Prozudure der UserForm manchmal gegenseitig auf.

Die Mails eines Ordner werden mit einem SpinButton geschaltet, also als Pseudocode

Code:

dim EML as MailIten

set EML = Folder.Items(Spinbutton1)

Die Fehlermeldung kommt bei Änderungen des Spinbutton, aber der Wert wird mehrfach gesichert.

Für die Frage ist das aber zu speziell, ich hatte gehofft Information über etwas ähnliches wie "Garage Collection" zu erhalten.

mfg

[maninweb]

Hallo,

ich würde bei sowas vielleicht an eine Variable denken (Integer statt Long) oder eine Rekursion denken,
die nicht mehr ausgeführt werden kann, z.B. durch eine Endlosschleife anhand eines oder mehrerer
Ereignisse. Warum aber gerade jetzt bei 250 Aktionen, kann ich Dir nicht sagen. Das da unten
läuft durch und stoppt automatisch.

Code:

Dim c As Integer

Private Sub TextBox1_Change()
c = c + 1
TextBox1.Text = TextBox1.Text & "-" & c
End Sub

Private Sub TextBox2_Change()
TextBox1.Text = c
End Sub

Private Sub UserForm_Initialize()
c = 0
TextBox1.Text = c
End Sub

Gruß

---

Hallo,

Nachtrag, das könnte das Problem sein ...

Prozudure der UserForm manchmal gegenseitig auf

Gruß

[Fennek]

Hallo Mourad,

was ein Code!

Nach 282 Iteration kommt es ohne Fehlermeldung zum Stillstand. Bei jedem Klick in TextBox2 kommt (vermutlich) die gleiche Anzahl hinzu bis zur Interger-Grenze von ca 32.000

Wieso stoppt es nach 282 Iterationen?

mfg

PS: Win 10, 32 bit, Outlook 2016, 32 bit

[maninweb]

Hallo Fennek,

ehrlich gesagt, keine 100 Prozentige Ahnung, warum das ausgerechnet nach 282 Iterationen stoppt.
Bei einer ListBox ist das anders, da sind's nur 273 Schritte (Nach Aufruf einmal auf die 0 klicken).

Code:

Private Sub ListBox1_Change()
ListBox1.AddItem ListBox1.ListCount
ListBox1.ListIndex = ListBox1.ListCount - 1
End Sub

Private Sub UserForm_Initialize()
ListBox1.AddItem 0
End Sub

Gruß

[schauan]

Hallöchen,

bei mir in 365-64 hab ich beim ersten Durchlauf nur 132 als letzte Zahl
dann 262, 392 usw. also immer 130 mehr
(Textbox-Code)