Microsoft Excel

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