Help!

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

Hulp bij posten

Recente topics

Auteur Topic: datum en tijd aanduiding wanneer een excel bestand laatst is geopend  (gelezen 4796 keer)

0 leden en 1 gast bekijken dit topic.

stof

  • Gast
datum en tijd aanduiding wanneer een excel bestand laatst is geopend
« Gepost op: 11 februari 2005, 15:41:52 »
ik zou op een excel sheet de vermelding willen wanneer dat bestand laatst is geopend en het exacte uur.
kan iemand vertellen hoe je dit insteld op een excel sheet.

Offline barthold

  • Volledig lid
  • **
  • Berichten: 171
  • ExWorks.be: Free Excel tools.
Re:datum en tijd aanduiding wanneer een excel bestand laatst is geopend
« Reactie #1 Gepost op: 11 februari 2005, 19:59:48 »
Een mogelijke oplossing kan deze code zijn:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Sheets(1).Range("A1").Value = Now()
'locatie te kiezen naar keuze
ThisWorkbook.Save
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub


De code is onder te brengen in de module ThisWorkbook.

Bart
WinXP - Excel 2000/XP/2003

stof

  • Gast
Re:datum en tijd aanduiding wanneer een excel bestand laatst is geopend
« Reactie #2 Gepost op: 12 februari 2005, 11:03:53 »
thanks!!!!

werkt perfect

Offline Tornado

  • Ervaren lid
  • ***
  • Berichten: 363
  • Geslacht: Man
  • Bedankt voor uw reactie !
Re:datum en tijd aanduiding wanneer een excel bestand laatst is geopend
« Reactie #3 Gepost op: 15 februari 2005, 06:07:15 »
Beste Barthold,  :)

Waar vindt ik die "thisworkbook" of hoe gaat dat in zijn werk ?

Alvast bedankt voor de moeite

Gustaaf
Windows 10 -interne 12 TB - extern 48 TB - Printer(s) HP ALl In One: 6600 - 7700 & 7750 - Telenet - Proximus

Offline spyder

  • Ambassadeur
  • *****
  • Berichten: 5.265
  • PC probleem zit meestal tussen scherm en rugleun
Re:datum en tijd aanduiding wanneer een excel bestand laatst is geopend
« Reactie #4 Gepost op: 15 februari 2005, 07:23:32 »
Hoi Tornado,

Ga daarvoor naar Extra>Macro>Visual Basic Editor.
In het volgende venster zie je links bovenaan een verkennerachtig venster (VBAProject) waarin je bladen staan, maar ook (als je al macro's geschreven of opgenomen hebt) modules(1, 2,......) en "This workbook".
Als je nu dubbelklikt op "this workbook" kun je die code daarin zetten.

groetjes
Windows 7 Ultimate Unknow NLD
Intel(R) Core(TM) i7 CPU         870  @ 2.93GHz 2934
P7P55D-E PRO
NVIDIA GeForce GTX 470 1280MB 1680 x 1050
HD 1 : INTEL SSDSA2M080G2GC (80GB)
HD 2 : ST31500341AS (1,5TB)
HD 3 : ST320006 41AS (2TB)
browser: Maxthon  mail:Thunderbird AV: Bitdefender
Scarlet user

Offline Tornado

  • Ervaren lid
  • ***
  • Berichten: 363
  • Geslacht: Man
  • Bedankt voor uw reactie !
Re:datum en tijd aanduiding wanneer een excel bestand laatst is geopend
« Reactie #5 Gepost op: 15 februari 2005, 07:26:20 »
Merciekes SPYDER  ;D

Zal ff proberen, houd je op de hoogte
Windows 10 -interne 12 TB - extern 48 TB - Printer(s) HP ALl In One: 6600 - 7700 & 7750 - Telenet - Proximus

Offline Tornado

  • Ervaren lid
  • ***
  • Berichten: 363
  • Geslacht: Man
  • Bedankt voor uw reactie !
Re:datum en tijd aanduiding wanneer een excel bestand laatst is geopend
« Reactie #6 Gepost op: 15 februari 2005, 07:39:57 »
Spyder zie jij de fout staan, wil ni macheren:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Sheets(1).Range("A1").Value = Now() 'L30'
ThisWorkbook.Save
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub
Windows 10 -interne 12 TB - extern 48 TB - Printer(s) HP ALl In One: 6600 - 7700 & 7750 - Telenet - Proximus

Offline spyder

  • Ambassadeur
  • *****
  • Berichten: 5.265
  • PC probleem zit meestal tussen scherm en rugleun
Re:datum en tijd aanduiding wanneer een excel bestand laatst is geopend
« Reactie #7 Gepost op: 15 februari 2005, 12:20:05 »
Hoi Tornado

Citaat
Sheets(1).Range("A1").Value = Now() 'L30'

Alles na het afkappingsteken is informatie om de code een beetje gemakkelijker te kunnen lezen. ;)

Die regel moet je aanpassen en zou er dan als volgt uit moeten zien (als L30 de cel is waar je die datum wil hebben).

Sheets(1).Range("L30").Value = Now() 'In cel L30 komt de datum te staan

groetjes
Windows 7 Ultimate Unknow NLD
Intel(R) Core(TM) i7 CPU         870  @ 2.93GHz 2934
P7P55D-E PRO
NVIDIA GeForce GTX 470 1280MB 1680 x 1050
HD 1 : INTEL SSDSA2M080G2GC (80GB)
HD 2 : ST31500341AS (1,5TB)
HD 3 : ST320006 41AS (2TB)
browser: Maxthon  mail:Thunderbird AV: Bitdefender
Scarlet user

Offline Tornado

  • Ervaren lid
  • ***
  • Berichten: 363
  • Geslacht: Man
  • Bedankt voor uw reactie !
Re:datum en tijd aanduiding wanneer een excel bestand laatst is geopend
« Reactie #8 Gepost op: 15 februari 2005, 13:09:17 »
Sorry Spyder wil niet werken

volgende heb ik in Thisworkboek gplakt

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Sheets(1).Range("A2").Value = Now() 'Locatie
ThisWorkbook.Save
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub

Is wel een werkmap bestaande uit 3 blad, is dat miss de oorzaak ?

Gustaaf
Windows 10 -interne 12 TB - extern 48 TB - Printer(s) HP ALl In One: 6600 - 7700 & 7750 - Telenet - Proximus

Offline Tornado

  • Ervaren lid
  • ***
  • Berichten: 363
  • Geslacht: Man
  • Bedankt voor uw reactie !
Re:datum en tijd aanduiding wanneer een excel bestand laatst is geopend
« Reactie #9 Gepost op: 15 februari 2005, 13:27:39 »
Sorry SPYDER  ??? ??? :-X :'(

alles is ok, de vermelding verschijnt alleen op het eerste werkblad

Bedant voor de reactie

Groetjes & tot wederhoren

Gustaaf
Windows 10 -interne 12 TB - extern 48 TB - Printer(s) HP ALl In One: 6600 - 7700 & 7750 - Telenet - Proximus

 


www.combell.com