Uhr/Mappe
30.04.2005 19:20:45
Mario
habe folgendes Problem
habe mir diese makros(Uhr in Tabelle1,Zelle(J3).) zusammengebastelt was auch ganz gut funktioniert
aber wenn eine andere Mappe active ist und in dieser Mappe wo diese Makro stehen
z.B. Tabelle 2 offen ist springt beim Updaten immer auf Tabelle 1 der nicht active Mappe was gewaltig nervt.
Was muss am code geändert werden damit es so funktioniert wie es mir vorstelle ?
Wer ist so nett und hilft mir weiter ?
Vielen dank schon zum Voraus
Gruss Mario
Option Explicit
Public Const gsssMacro As String = "UpdatesClock"
Public gdsssNextTime As Double
Sub UpdatesClock()
Application.ScreenUpdating = False
ThisWorkbook.Worksheets(1).Unprotect Password:="xxx"
ThisWorkbook.Worksheets(1).range("J3") = Format(Time, "hh:mm")
Call StartsClock
'ThisWorkbook.Worksheets(1).Protect Password:="xxx"
End Sub
Sub StartsClock()
Application.ScreenUpdating = False
'ThisWorkbook.Worksheets(1).Unprotect Password:="xxx"
gdsssNextTime = Now + TimeSerial(0, 1, 0)
Application.OnTime earliesttime:=gdsssNextTime, _
procedure:=gsssMacro, schedule:=True
ThisWorkbook.Worksheets(1).Protect Password:="xxx"
End Sub
Sub StopsClock()
ThisWorkbook.Worksheets(1).Unprotect Password:="xxx"
Application.OnTime earliesttime:=gdsssNextTime, _
procedure:=gsssMacro, schedule:=False
Application.StatusBar = False
ThisWorkbook.Worksheets(1).Protect Password:="xxx"
End Sub
Anzeige