an alle!!! wer kann helfen? onerror
20.01.2004 14:17:21
Lisa
Ich habe aus diesem Forum einen Code herausgefischt, der bei einer Fehlermeldung diesen in einem Tabellenblatt auflistet.
Der hat auch immer geklappt, aber jetzt auf einmal klappt es nicht mehr. Hier der Code, welcher meiner Meinung nach den Fehler verursacht:
Function LogError(errData As ErrObject)
Dim UName As String, WBName As String, LZ As Long
UName = Application.UserName
If PROT.[a1] = "" Then Call Blatt_einrichten
LZ = [a65536].End(xlUp).Row + 1
With PROT
.Cells(LZ, 1) = Date
.Cells(LZ, 2) = Time
.Cells(LZ, 3) = UName
.Cells(LZ, 4) = Err.Source
.Cells(LZ, 5) = Err.Number
.Cells(LZ, 6) = Err.Description
.Columns.AutoFit
End With
End Function
Damit werden die daten in das tabellenblatt geschrieben.
Der Fehler ist nun folgender:
es wird nicht immer in die erste freie zelle geschrieben, sondern irgendwohin - am öfftesten in zeile 116!!!!!!
und diese werden i.d.R. auch wieder überschrieben. Ich bin hilflos!!!!!!!!
Lisa