Probleme mit For-Schleife

Hallo an alle

Ich habe ein Problem mit der For-Schleife. Dies gehört eigentlich inhaltlich zum Forumbeitrag "Automatisierungsfehler - nichts geht mehr". Aber irgendwie
kann ich dort nicht mehr schreiben, sodaß ich es mit einem neuen Beitrag probiere.

Ich habe das Excel, welches Onur für mich angepaßt hatte, noch etwas erweitert. Beispielsweise mit einer For-Schleife. Siehe hier:

https://www.herber.de/bbs/user/163471.xlsm

Ich habe hier nun ein interessantes Phänomen, welches ich auch nicht debuggen kann.
- Exceldatei öffnen
- oben rechts den Button "Prüfen..." drücken
- nun sollte beginnend bei Zeile 9 alle vorhanden Zeilen, die den Eintrag "open" in Spalte B haben, durchlaufen werden und dann entsprechend eine Erinnerungs-E-Mail
geschickt werden, wenn das Datum in Spalte K entsprechend ist (7 Tage oder mehr vor dem heutigen Datum)
- so wie die Zelleneinträge aktuell sind, sollte zuerst eine E-Mail für 775 geschickt werden (das E-Mail-Sende-Formular geöffnet werden) und nach dem Senden sollte er entsprechend der For-Schleife zum nächsten Eintrag gehen und das E-Mail-Sende-Formular fürs Schicken der E-Mail für 888 sollte aufgehen. Tut es jedoch nicht.

Was er tatsächlich tut:
- er öffnet sofort das E-Mail-Sende-Formular für 888.

Wenn ich debugge, bearbeitet er erst Zeile 9 (i=9), was soweit richtig ist, ruft Call E_Mail_Senden auf, um dort das Formular zu laden.
Dieses wird "leer geladen". Beim Debuggen wird "Private Sub UserForm_Activate" gar nicht abgearbeitet. Entsprechend bleibt das Formular leer und wird sofort in den Hintergrund verschoben und er er macht mit dem Debuggen unterhalb der Zeile "Call E_Mail_Senden" weiter.

Was habe ich hier übersehen? Über Hilfe würde ich mich sehr freuen. Hoffe, ich habe es gut beschrieben.
Danke im Voraus fürs Anschauen.
Gruß Ronald

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ronald!

Sorry, bei dem Code blickt keiner mehr durch, da musst du erstmal aufräumen....

Übersichtlichkeit:
wenn du Variablen benennst, fasse dich KURZ
Wer will denn das immer lesen müssen: "intPruefprozess_aktuelle_Zeile"
Wenn du mehrere ähnliche Zugriffe auf gleiche bereiche hast, fasse zusammen:

                dtePruefprozess_Datum_bis = CDate(Worksheets("Offene Punkte").Cells(intPruefprozess_aktuelle_Zeile, 9).Value)

                dtePruefprozess_E_Mail_Gesendet_Am = CDate(Worksheets("Offene Punkte").Cells(intPruefprozess_aktuelle_Zeile, 11).Value)

                strPruefprozess_Verantwortlicher_Name = Worksheets("Offene Punkte").Cells(intPruefprozess_aktuelle_Zeile, 8).Value

wird zu

dim OP_akt_8 as range

dim WS as worksheet

set WS = Worksheets("Offene Punkte")

set OP_akt_8 = WS.Cells(intPruefprozess_aktuelle_Zeile, 8)



                dtePruefprozess_Datum_bis = CDate(OP_akt_8.offset(0,1))

                dtePruefprozess_E_Mail_Gesendet_Am = CDate(OP_akt_8.offset(0,3))

                strPruefprozess_Verantwortlicher_Name = OP_akt_8.value

Logik:
Diese If-Folge kommt häufiger vor:

               If boolPruefprozess_abbrechen = True Then

                            Exit Sub

                        ElseIf boolPruefprozess_abbrechen = False Then

                        End If

boolPruefprozess_abbrechen ist schon Boolean, also FALSCH oder WAHR, daher ist die Abfrage WAHR = FALSCH unsinnig und überflüssig und erfüllt auch alleinstehend den Sinn.
ElseIf boolPruefprozess_abbrechen = False ebenso. Da dann kein Code mehr erfolgt, kann das auch entfallen.

Es bleibt also (einzeilig):

               If boolPruefprozess_abbrechen  Then Exit Sub

Abgesehen davon ist die Lösung für dein Problem recht banal.

Dieser Befehl:


Private Sub E_Mail_senden()

    frmOP_E_Mail_senden.Show  vbModeless

End Sub

Bewirkt den Aufruf des Fenster, der Code läuft aber im Hintergrund weiter und versucht auch weitere Fenster zu öffnen, bzw nutzt das offene Fenster weiter.
Wenn du vbModeless weglässt, musst du zwar jede Mail gesondert bestätigen, aber es läuft durch wie gewünscht.

Für eine Bearbeitung mehrerer Mails wie du es gern hättest habe ich für mich eine Outlook-Lösung entwickelt. Beispiele dazu gibt es im Forum reichlich.
Die Optionen und Gestaltungsmöglichkeiten (inkl. html + Anhänge, Terminvorschlägen und Signaturen) sind hier deutlich größer.

Gruß, MCO

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Probleme mit For-Schleife

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread