Zum Inhalt springen

Fehlerbehandlung im VBA Compiler

Bei der Ausführung Ihres kompilierten VBA-Codes können Laufzeitfehler auftreten. Während Standard-VBA die Anweisung On Error zur Fehlerbehandlung verwendet, nutzt der VBA Compiler von XLS Padlock einen Try...Except-Block.

Wenn innerhalb des Try-Blocks (oder in einer von ihm aufgerufenen Prozedur) ein Fehler auftritt, springt der Compiler zur Behandlung sofort zum Except-Block.

Syntax

Try
    ' ... Code to execute ...
Except
    ' ... Code to run if an exception occurs ...
End

Codebeispiel

NumberStr = ""
if InputQuery("Input", "Type an integer from 1 to 7", NumberStr) then
    try
        Number = StrToFloat(NumberStr)
    except
        raise("Not a valid number")
    end

    select case Number
        case 1
            ShowMessage("One")
        case 1 + 1
            ShowMessage("Two")
        case 4.5 / 1.5
            ShowMessage("Three")
        case 2 * 2
            ShowMessage("Four")
        case Length("xxxxx")
            ShowMessage("Five")
        case 3 + 3, 3 + 4
            ShowMessage("Six or Seven")
        case else
            ShowMessage("You did not type an integer from 1 to 7")
    end select
end if