VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Fehlermeldung abfangen und in sequentielle Datei schreiben

Gruppe

Extern

Bereich

TextExport

Thema

Fehlermeldung abfangen und in sequentielle Datei schreiben

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

    


Beiträge aus dem Excel-Forum zu den Themen Extern und TextExport