VBA - Sound wenn Fehlerfenster

[Lucker11]

Hallo,

ist es möglich eine akustische Meldung zu bekommen, wenn das Programm einen Fehler hat? Also immer wenn dieses Fehlerfenster mit "Debuggen" "Fortfahren" ,.. kommt? Das Programm selber geht dabei über mehrere Module und das Fenster soll trotzdem erhalten bleiben. Kann man das vielleicht irgendwo bei VBA einstellen?

Liebe Grüße
Max

[Case]

Hallo,

bau in deine On Error Anweisung doch einfach "Beep" ein:

Code:

Option Explicit
Private Declare PtrSafe Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
Public Sub Main()
    On Error GoTo Fin
    MsgBox 100 / 0
Fin:
    If Err.Number <> 0 Then
        Beep 400, 500
        Beep 450, 200
        Beep 500, 300
        Beep 700, 200
        Beep 800, 500
        Beep 700, 200
        Beep 800, 800
        MsgBox "Error: " & Err.Number & " " & Err.Description
    End If
End Sub

[Kuwer]

Hallo Max,

siehe auch: Systemklänge zuordnen

Gruß Uwe