@ K.Rola
15.01.2004 09:20:18
Jonathan
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