Zeitablauf anzeigen
13.06.2005 21:36:34
Wolfgang
untenstehenden Code habe aus der CD von Herrn Herber; ich möchte erreichen, dass sich nach Ablauf einer bestimmten Zeit Excel meldet und mitteilt, dass die Mappe bereits seit XX-Minuten geöffnet ist. Nach Ablauf von jeweils der gleichen Zeit (ich habe sie exemplarisch auf 10 Sekunden eingestellt) soll sich Excel immer wieder erneut melden. Wie kann der untenstehende Code darauf abgestimmt werden. Vor allem ist auch die Frage, warum bei "Uhraus" immer bei mir eine Fehlermeldung kommt, dass Application.OnTime nicht angewandt werden konnte ? - Hat irgendwer eine Idee ? Ich wäre weiterhin für eine Mithilfe sehr dankbar.-
Gruß - Wolfgang Berger
Hier der bzw. die Codes
Option Explicit
Public NextTime As Date
Sub Uhran()
NextTime = Now + TimeValue("00:00:10")
Application.OnTime NextTime, "Nachrichten"
End Sub
Sub Nachrichten()
Dim NextTime As Date
Dim sbPath As String, swPath As String
Application.DisplayAlerts = False
MsgBox (" Hallo KollegIn " & Application.UserName & " Sie haben Excel bereits seit 15 Minuten geöffnet ! "), vbInformation
If Dir(sbPath) <> "" And Time = TimeSerial(0, 5, 30) Then
End If
NextTime = Now + TimeValue("00:00:10")
MsgBox ("Meine Güte, was dauert das heute KollegIn " & Application.UserName & " nun aber mal fertig werden !"), vbInformation
Application.OnTime NextTime, "Uhran"
End Sub
Sub Uhraus()
Application.OnTime NextTime, "Uhran", , False
End Sub