FEHLER MELDUNG

Sub Aufruf_Meldung()

On Error GoTo ErrorHandler

    ActiveWorkbook.Sheets(1).Activate

    MsgBox "Hallo Welt" & Chr(13) & Date, vbExclamation + vbYesNo
   
    Exit Sub
ErrorHandler:

    MsgBox Err.Description & Chr(13) & Err.Number & Chr(13) & Err.Source, _
        vbCritical, "Ein Fehler ist aufgetreten "
    Exit Sub
End Sub

Sub Meldung_abfangen()
Dim intAntwort As Integer

    intAntwort = MsgBox("Wollen Sie das Datum sehen?", 32 + 4 + 256)
   

   
    Select Case intAntwort
        Case 6
            MsgBox Date
        Case 7
            MsgBox "Sie wollten das Datum ja nicht wissen."
    End Select
End Sub


Sub Wert_wiedergeben()

    MsgBox Format(CCur(ActiveCell.Value), "EUR #,##0.00")

End Sub