Automatisierungsfehler - nichts geht mehr

Hallo an alle!

Ich habe in meinem Excel seit neuestem einen Automatisierungsfehler, der nicht mehr weg geht und der auch auf keine
spezielle Zeile pointet, sodaß ich absolut nicht weiß, wo der Fehler sein soll. Ich weiß nicht, ob ich hierfür die eigentliche
Funktionsweise des Excels erklären soll.

Angefangen hat es damit, daß ich im Formular (in der Prozedur des E-Mail-Sendens) ein "unload me" für das Schließen
des Formulares hinten angefügt habe. Da kam die Fehlermeldung, es würde ein Sub fehlen. Aber es fehlte keins. Und
schon gar nicht dort, wo er es markiert hat. Am Ende der E-Mail-Senden-Prozedur, bwz. am Anfang der nachfolgenden:
UserForm_Activate(). Ich hab da probiert, woran es liegen kann und plötzlich, wenn ich dort in den Quellcode geklickt
habe, um das Unload Me zu löschen, ging das ganze Excel zu. Also hab ichs wieder gestartet, neu probiert und es ging
wieder zu. Wieder probiert und wieder...ohne wirklich was zu ändern und nun kommt nur noch Automatisierungsfehler.
Ich habe solch ein Verhalten noch nie erlebt. Keine Ahnung, was hier los ist.

Wäre toll, wenn mir jemand helfen könnte. Das Projekt ist hier: https://www.herber.de/bbs/user/163165.xlsm

Vielen Dank im Voraus.
Gruß Ronald

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

raten musst du! :-/

Hi Ronald,

du musst uns nich erklären, WAS GENAU WIR tun müssen, damit sich auch bei uns was tut - wir können ja raten!
Aber es wär echt cool, wenn du n bisschen was erklärt hättest.

Nach vielem Ausprobiern + eben raten kam ich dann endlich so weit, dass ich dein Sende-Userform öffnen konnte.

Und nach klick auf den Senden-Button wurde...
a) diese Mail erstellt...
Userbild

(das, was man - nicht - lesen kann, habe ich unkenntlich gemacht; es ist also kein Fehler in der Mail)

b) ...und dein Userform wurde dank Unload Me fehlerfrei geschlossen

Daher weiß zumindest nicht, wo bei dir der Fehler ist....ach so...den Fehler mit

applOutlook As String * Dim

hab ich natürlich bei mir beseitigt.

Ciao
Thorsten

If Worksheets("Offene Punkte").Range("B" & intVorherigeZeile).Value = "open" Then Worksheets("Offene Punkte").Range("B" & intVorherigeZeile).Interior.ColorIndex = 22 '(5) ElseIf Worksheets("Offene Punkte").Range("B" & intVorherigeZeile).Value = "closed" Then Worksheets("Offene Punkte").Range("B" & intVorherigeZeile).Interior.ColorIndex = 43 '(27) End If

If Worksheets("Offene Punkte").Range("B" & intAktuelleZeile).Value = "open" Then Worksheets("Offene Punkte").Range("B" & intAktuelleZeile).Interior.ColorIndex = 22 '(5) ElseIf Worksheets("Offene Punkte").Range("B" & intAktuelleZeile).Value = "closed" Then Worksheets("Offene Punkte").Range("B" & intAktuelleZeile).Interior.ColorIndex = 43 '(27) End If ' Aktuelle Zeile als vorherige Zeile speichern PreviousRow = Target.Row If intVorherigeZeile = 0 Then intVorherigeZeile = 8 End If If Worksheets("Offene Punkte").Range("B" & intVorherigeZeile).Value = "open" Then Worksheets("Offene Punkte").Range("B" & intVorherigeZeile).Interior.ColorIndex = 22 '(5) ElseIf Worksheets("Offene Punkte").Range("B" & intVorherigeZeile).Value = "closed" Then Worksheets("Offene Punkte").Range("B" & intVorherigeZeile).Interior.ColorIndex = 43 '(27) End If End If

Beliebteste Forumthreads (12 Monate)

Automatisierungsfehler - nichts geht mehr

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Automatisierungsfehler - nichts geht mehr

29 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread