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