Format und Time
07.07.2006 09:29:15
Gregor
Bei folgendem Makro erhalte ich eine Fehlermeldung betreffend Format. Was ist falsch? Zudem funktionieren die 5 Sekunden nicht, die Mitteilung bleibt stehen und entfernt sich erst mit Betätigung des ok. Ich möchte jedoch dass die Mitteilung nach 5 Sekunden erlischt.
Sub MsgBox_mit_Zeitlimit()
Dim WshShell
Dim intAntwort As Integer
Dim Tag As Variant
Tag = Format(Weekday(Date), "dddd")
Set WshShell = CreateObject("WScript.Shell")
intAntwort = WshShell.Popup(Tag & _
Chr(13) & _
Chr(13) & _
Date & _
Chr(13) & _
Chr(13) & _
Time, 5, " Datum") '5 = Sekunden
End Sub
Was ist an diesem makro falsch?
Lieber Gruss
Gregor
Anzeige