Hilfe für LibreOffice 24.8
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