Gruppe
Ereignis
Problem
Die Formel in Zelle F2 soll eine Fehlermeldung anzeigen, wenn im Bereich A1:C10 ein anderer Wert als der in Zelle F1 genannte eingetragen wird.
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