Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > VBA - Sound wenn Fehlerfenster
Normale Version: VBA - Sound wenn Fehlerfenster
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Lucker11

21.04.2021, 08:23
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

21.04.2021, 08:43
Hallo, 19

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

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

21.04.2021, 08:52
Hallo Max,

siehe auch: Systemklänge zuordnen

Gruß Uwe
Clever-Excel-Forum > Office-Anwendungen > Excel > VBA - Sound wenn Fehlerfenster