Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Fehlermeldung abfangen und in sequentielle Datei schreiben
Gruppe
TextExport
Problem
Wie kann ich Fehlermeldungen abfangen und die Fehlernummer mit der Meldung in eine sequentielle Textdatei schreiben lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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