VBA Code funktioniert nicht
28.05.2014 19:34:12
Jürgen
Sub UpdateClock()
Worksheets("Tabelle1").Range("A31").Calculate
Cells(31, 1) = Now
Call StartClock
If Cells(30, 1) = Cells(31, 1) Then
Call Zeitmakro1
End If
End Sub
Sub StartClock()
gdNextTime = Now + TimeSerial(0, 0, 1)
Application.OnTime earliesttime:=gdNextTime, procedure:=gsMacro, schedule:=True
End Sub
Sub Zeitmakro1()
ThisWorkbook.Worksheets("Tabelle1").Range("A31") = Format(Now, "hh:mm:ss")
Worksheets("Tabelle1").Range("A31").Calculate
Cells(31, 1) = Now
Exit Sub
End Sub