Hilfe für Collabora Office 24.04
Gibt die Zeilennummer zurück, an der ein Fehler in der Programmausführung aufgetreten ist.
Erl
Integer
Die Funktion Erl gibt lediglich eine Zeilennummer, jedoch kein Zeilenlabel zurück.
Sub ExampleError
On Error GoTo ErrorHandler ' Fehlerbehandlung anmelden
Dim iVar As Integer
Dim sVar As String
' Ein Fehler wird verursacht, da die Datei nicht existiert
iVar = Freefile
Open "\file9879.txt" For Input As #iVar
Line Input #iVar, sVar
Close #iVar
Exit Sub
ErrorHandler:
MsgBox "Fehler " & err & ": " & Error$ + chr(13) + "In Line : " + Erl + chr(13) + Now , 16 ,"Fehler aufgetreten"
End Sub