Probleme mit Klassen

Liebes Forum,
ich versuche gerade ein Verfahren zur Verarbeitung von Fehlern zu entwickeln. Dafür habe ich die Klasse clsErrorHandling mit folgendem Inhalt entworfen:

Public Sub Fehler_notieren(Vorgang As String, ErrMeldung As String, ErrNummer As String)
'nächste Meldung ab Zeile:
neueZeile = ActiveWorkbook.Sheets("System").Cells(Rows.Count, 1).End(xlUp).Row + 1
'einfügen
ActiveWorkbook.Sheets("System").Cells(neueZeile, 1).Value = Now()
ActiveWorkbook.Sheets("System").Cells(neueZeile, 2).Value = Vorgang
ActiveWorkbook.Sheets("System").Cells(neueZeile, 3).Value = ErrNummer
ActiveWorkbook.Sheets("System").Cells(neueZeile, 4).Value = ErrMeldung
End Sub

Die Verwendung in z. B. einem Modul sieht folgendermaßen aus:

Private Sub Test()
Dim Fehler As clsErrorHandling
On Error GoTo Err
Exit Sub
Err:
Set Fehler = New clsErrorHandling
Fehler.Fehler_notieren("Sub Test", err.Description, err.Number)
Exit Sub
End Sub

Problem: in der Zeile Fehler.Fehler_notieren bekomm ich den Fehler: "Fehler beim Kompilieren: Erwartet: ="
Was mache ich falsch? Ich übergebe die Infos doch an eine Sub Prozedur und nicht an eine Function..?
Was haltet Ihr von meiner Fehlerverarbeitung?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

HAllo

Was haltet Ihr von meiner Fehlerverarbeitung?

Du kannst auch gleich das ErrObject übergeben und das Ganze in der aufrufenden Prozedur abfrühstücken.
Das ginge dann z.B. so:

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Public Sub test()
Dim a As Object
Dim i As Integer

Dim neuezeile As Long
On Error GoTo errorhandler
a = "ABC"
i = 1 / 0
Exit Sub

errorhandler:
Dim s As New Klasse1
MsgBox Join(s.Fehler("test", Err), vbCrLf)
With ActiveWorkbook.Sheets("Tabelle1")
neuezeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(neuezeile, 1).Resize(, 4) = s.Fehler("Test", Err)
End With
Err.Clear
Resume Next

End Sub

' **********************************************************************
' Modul: Klasse1 Typ: Klassenmodul
' **********************************************************************

Option Explicit

Property Get Fehler(dieSub As String, F As ErrObject)
Fehler = Array(Now, dieSub, F.Number, F.Description)
End Property

ransi

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread