Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler protokolieren

Fehler protokolieren
23.01.2004 00:08:29
Jonathan
Hallo!!
Ich habe hier aus dem Forum einen Code bekommen, der Fehler in eine Textdatei oder in ein Tabellenblatt schreibt.
Leider habe ich mir nur den für das Tabellenblatt goholt, und finde den Beitrag nun nicht mehr.
Wenn Ihr mir also den für das schreiben in eine Textdatei geben könntet, wäre echt super!!!!

Vielen dank!!
Jonathan

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler protokolieren - der Code on K.Rola
23.01.2004 00:41:21
Boris
Hi Jonathan,
Option Explicit
Const STRPFAD As String = "D:\Eigene Dateien\"
Const STRDATEI As String = "Fehlerlog.txt"

Function LogError(errData As ErrObject)
Dim FF As Integer, UName As String, WBName As String
UName = Application.UserName
WBName = ActiveWorkbook.Name
FF = FreeFile
Open STRPFAD & STRDATEI For Append As #FF
Print #FF, Now, errData.Number, Err.Source, Err.Description, UName, WBName
Close FF
End Function



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 " & Err.Source & " verursachte den Fehler  " & Err & "  " & Err.Description & "!          ", 64, "gebe bekannt..."
LogError Err
End Sub


Grüße Boris
Anzeige
OT du hast Post oT
23.01.2004 00:46:06
K.Rola
oT
AW: OT du hast Post oT
23.01.2004 01:03:35
Jonathan
Super, vielen Dank!!!!

Liebe Grüße
Jonathan
OT: Lese ich heute Abend oT
23.01.2004 09:16:10
Boris
Grüße Boris

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige