Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
364to368
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
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

@ K.Rola

@ K.Rola
15.01.2004 09:20:18
Jonathan
Hallo!
Vielen Dank nochmal für Deine Hilfe!!!!!
Hab es heute morgen nun richtig testen und anwenden können!!! Einfach klasse!
um dich als "schwieriger Fall" nicht zu enttäuschen, hier natürlich noch eine Frage :-)
habe den test code mal erweitern wollen:

Sub TestFehlerLog()
Dim intX As Integer, intY As Integer, intZ As Integer
intY = 100
intX = 1000
On Error GoTo errFehlerLog
intX = intY / 0
Exit Sub
errFehlerLog:
MsgBox "Das Tabellenblatt " & Err.Source & " verursachte den Fehler" & Err & "  " & Err.Description & "!          " & vbCrLf & vbCrLf & _
"Sie haben nun die Möglichkeit die fehlerbehaftende Datei per Email an den Verfasser zu senden, um diesen schnellstmöglich zu beheben. Es wird dringend empfohlen, dieses Service zu nutzen. Möchten Sie die Email senden, klicken Sie im nächsten Fenster bitte auf JA.", _
64, "Fehler"
ActiveWorkbook.SendMail "test@test.de", "Fehlerdatei"
LogError Err
End Sub


So, super, klappt!
Aber:
wenn man im nächsten Fenster auf Nein drückt, gibt es eine Fehlermeldung! allg. Emailfehler!
Wie kann ich diese Meldung unterdrücken?
Nochmals danke!
Jonathan

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
  • 15.01.2004 09:42:26
    jonathan
Anzeige
erl.
15.01.2004 09:42:26
jonathan
Hallo!
habe es jetzt mit einer eigenen Sub gemacht........

danke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige