macro datum/tijd > bestand wordt opnieuw geopend

[arjoderoon]

ik heb een bestand waarin ik de datum en tijd laat weergeven.
Alleen zit ik met het probleem dat als ik dit bestand weg klik, dat het automatisch weer geopend wordt.
Ik kan zelf niet vinden waarom...

ik heb bij thisworkbook het volgende:

Private Sub workbook_open()
Username

Dim interval As Date
interval = TimeValue("00:00:01")
Worksheets("BLAD2").Range("F2") = Format(Date, "dd mmmm yyyy") & "; " & Format(Time, "hh:mm") & " uur"
Application.OnTime Now + interval, "Tijd"
End Sub

Private Sub Username()

Sheets("blad2").Range("F3").Value = Application.Username

End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call stoptijd

End Sub

Private Sub stoptijd()
On Error Resume Next
Application.OnTime Now + interval, "Tijd", , False

End Sub

en omdat hierin verwezen wordt naar de macro "tijd"

heb ik bij module het volgende:

Sub tijd()

Dim interval As Date
interval = TimeValue("00:00:01")
Worksheets("BLAD2").Range("F2") = Format(Date, "dd mmmm yyyy") & "; " & Format(Time, "hh:mm") & " uur"
Application.OnTime Now + interval, "Tijd"
End Sub

hoe krijg ik het zover dat de macro iedere minuut ververst wordt ,maar wel dat hij niet automatisch opent na afsluiten?

 

[HSV]

Probeer het eens rechtstreeks in de Beforeclose.

Application.OnTime Now + interval, "Tijd", , False

i.p.v. de Call.

Ik heb eenzelfde code in een bestand staan, en daarbij werkt het feilloos zo.

 

[arjoderoon]

ik heb nu dit:
Thisworkbook:

Private Sub workbook_open()
Username
tijd

End Sub

Private Sub Username()

Sheets("blad2").Range("F3").Value = Application.Username

End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next
Application.OnTime Now + interval, "Tijd", , False


End Sub

module1:

Sub tijd()

Dim interval As Date
interval = TimeValue("00:00:01")
Worksheets("BLAD2").Range("F2") = Format(Date, "dd mmmm yyyy") & "; " & Format(Time, "hh:mm") & " uur"
Application.OnTime Now + interval, "Tijd", False

End Sub

Ik krijg het niet voor elkaar. zit er misschien iets in dat ik de sub "tijd" in een module heb staan?

Heb geprobeerd dit ook binnen de codes van thisworkbook te krijgen maar dat werkt niet. dan krijg ik de melding dat de macro niet beschikbaar is. Verplaats ik hem weer naar de module dan werkt het wel, maar dan krijg ik zoals gezegd dat het bestand weer geopend wordt als ik hem sluit..

edit: het gedeelte "Tijd" snap ik niet. moet dat daar staan of kan dat er ook uit?

 

[HSV]

Hier mijn bestandje; kijk en vergelijk.

 

[arjoderoon]

bij jouw bestand krijg ik ook een error:

fout 1004 tijdens uitvoering:
methode calculate van object_global is mislukt

 

[HSV]

Misschien dat onderstaande link je verder kan helpen.

http://support.microsoft.com/kb/292476

 

[arjoderoon]

helaas ook niet de oplossing.

de oplossing is ook voor excel2002/2003 zag ik staan. ik gebruik 2010.

Ik heb de calculate opties aangepast zoals in het artikel genoemd maar krijg nog steeds een error. Hij verwijst naar het 'calculate' gedeelte in je sub "startklok"

 

[HSV]

Ik kan het helaas niet voor je testen in Excel 2010, maar probeer dit eens in mijn bestand.

 Application.Calculate

waar "calculate" staat.

 

[arjoderoon]

hier op m'n laptop met excel 2003 doet hij het direct.
ik zal het maandag eens testen op m'n werk, dank!

 

[arjoderoon]

yes... hij doet het nu.