Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Digitale klok  (gelezen 554 keer)

0 leden en 1 gast bekijken dit topic.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Digitale klok
« Gepost op: 07 oktober 2021, 16:42:37 »
dag,
ik loop tegen een eigenaardig fenomeen aan : ik heb op mijn werkblad "Budget" een datum en tijd geplaatst , dat werkt goed maar als ik een tijdje (denk langer dan een minuut - de tijd wordt ook getoond met Uren-Minuten) op een ander werkblad bezig ben dan worden in dezelfde cellen als op werkblad "budget" de datum en tijd ook weergegeven en wordt de inhoud van de cellen overschreven....
enig idee ?

mijn code :
Private Sub Workbook_Open()
Application.OnTime Now + TimeSerial(0, 0, 1), "UpdateTimer"
Sheets("Budget").Protect , UserInterfaceOnly:=True 'macro's toestaan
End Sub

en dan in een module :
Public Sub UpdateTimer()
Application.Cells(5, 3).Value = Format$(Now, "dd/mm/yyyy")
Application.Cells(5, 4).Value = Format$(Now, "hh:nn")
Application.OnTime Now + TimeSerial(0, 1, 0), "UpdateTimer"
End Sub
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Digitale klok
« Reactie #1 Gepost op: 07 oktober 2021, 17:01:50 »
Het eerste wat opvalt is
Application.Cells(5, 3).Value
Dit moet zijn:
Sheets("Budget").Cells(5, 3).Value 

Hetzelfde geldt voor de regel eronder.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Digitale klok
« Reactie #2 Gepost op: 07 oktober 2021, 17:06:18 »
k'voel me precies ne beginneling....ik had dat ook al aangepast maar schreef sheets(Budget).cells enz , ik was de haakjes vergeten  :-[...
Dankuwel Veerj !
mvg,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Digitale klok
« Reactie #3 Gepost op: 07 oktober 2021, 17:16:54 »
 ;D

 


www.combell.com