MsgBox
09.01.2009 22:35:28
Martin
Heute stehe ich wieder mal daneben. Bekomme diesen Code nicht zum Laufen wie ich es gerne möchte.
Wollte nur, dass die MsgBox kurz angezeigt wird und danach selber schließt.
Sub StartMsg()
Application.OnTime Now + TimeSerial(0, 0, 15), "ShowMsg"
End Sub
Sub ShowMsg()
MsgBox "Die automatische Berechnung wird kurzzeitig deaktiviert", 64, "Achtung"
End Sub
Wo stehe ich daneben?
Danke für Eure Hilfe
MFG
Martin