Timer in Label
07.08.2008 13:23:00
Jens
Habe von Tino folgenden Code bekommen:
Option Explicit
Public Zeit As Date
Sub StartTimer()
Application.OnTime Zeit, "MeineWB"
End Sub
Sub ResetTimer()
On Error Resume Next
Application.OnTime earliesttime:=Zeit, procedure:="MeineWB", schedule:=False
On Error GoTo 0
End Sub
Sub MeineWB()
On Error Resume Next
Dim A As Long
For A = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(A, 1) > "" Then Linkaufruf Cells(A, 1)
Next A
Zeit = Now + CDate("01:00:00")
StartTimer
End Sub
Function Linkaufruf(strSeite As String)
Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.application")
appIE.Visible = False 'False ist unsichtbar True ist Sichtbar
appIE.Navigate strSeite
While Not appIE.ReadyState = 4 'Warte auf Webseite
DoEvents
Wend
'Application.Wait (Now + TimeValue("00:00:02"))
appIE.Quit
Set appIE = Nothing
End Function
Nun würd ich gerne beim Timerstart eine UF mit Label öffnen, in der die rückwärts laufende Zeit bis zum nächsten Timer-Start angezeigt wird (also rückwärts laufend von 01:00:00 bis 00:00:00).
Könnte mir da jemand helfen? Habe schon rumprobiert, aber irgendwie bleibt das Label immer leer.
Wahrscheinlich steh ich mal wieder total auf dem Schlauch.
Vielen Dank.
Gruß aus dem Sauerland
Jens