Gruppe
Extern
Problem
Wie kann ich Fehlermeldungen abfangen und die Fehlernummer mit der Meldung in eine sequentielle Textdatei schreiben lassen?
StandardModule: basMain
Sub FehlerProtokoll()
Dim iCount As Integer
Dim sFile As String
sFile = Application.Path & "\MyError.txt"
On Error GoTo ERRORHANDLER
iCount = 40000
End
ERRORHANDLER:
Open sFile For Output As #1
Print #1, "FehlerNummer: " & Err
Print #1, "Fehler: " & Error
Close
Workbooks.OpenText sFile
MsgBox "Weiter"
ActiveWorkbook.Close savechanges:=False
Kill sFile
End Sub