Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Datum laatste opening werkblad  (gelezen 8823 keer)

0 leden en 1 gast bekijken dit topic.

Offline Tornado

  • Ervaren lid
  • ***
  • Berichten: 363
  • Geslacht: Man
  • Bedankt voor uw reactie !
Datum laatste opening werkblad
« Gepost op: 24 september 2006, 09:15:39 »
Beste Oplossers,

In een werkblad van excel zou ik graag in een bepaalde cel, de datumaangifte hebben, wanneer dit werkblad voor het laatst is geopend.

Welke formule moet ik hier toepassen ?

Alvast bedankt voor de reactie & oplossing

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

Offline danny147

  • Oplosser
  • ****
  • Berichten: 564
  • Geslacht: Man
  • Lotto, de sleutel tot het succes.
Re:Datum laatste opening werkblad
« Reactie #1 Gepost op: 24 september 2006, 16:31:08 »
Beste

Misschien kan het onderwerp datumregistratie U een oplossing bieden.
Zoeken bij onderwerpen excel

Groetjes Danny 147.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz 1200
SAMSUNG_NP1234567890
Intel(R) HD Graphics 4000 2112MB -
Realtek High Definition Audio
Nr: 1 Model: Hitachi HTS727575A9E364
C:\ NTFS 670,11GB 494,48GB 8 080MB
AV: Trend Micro Maximum Security

Offline Hombre

  • Volledig lid
  • **
  • Berichten: 164
  • ¡Qué guapa!
Re:Datum laatste opening werkblad
« Reactie #2 Gepost op: 07 oktober 2006, 20:28:00 »
Beste,
Plak deze code in je werkblad waarvoor je de datum wil toepassen (VB)
(Druk Alt-F4 om VB te openen)

Private Sub Worksheet_Activate()
    [A1] = Date
End Sub

De datum van vandaag wordt genoteerd in cel A1

Succes
Windows XP, Home, SP2, Intel Core2 Duo E6400 2.13Ghz, 1024 MB RAM, GeForce FX 7300LE, HDD:SATA II 160GB NTFS, AVG antivirus, Outlook Express

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.191
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:Datum laatste opening werkblad
« Reactie #3 Gepost op: 07 oktober 2006, 21:22:35 »
Hallo Hombre,

ik denk dat je de vraag niet goed gelezen hebt :P.
De vraag is om de datum, dat het werkblad voor het laatst geopend is geweest (in het verleden), te tonen bij het openen van dat werkblad.
Jou formule zet enkel de huidige datum in het werkblad bij opening van dat werkblad (vanuit een ander werkblad)

:) SoftAid :)
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline firmin

  • Ervaren lid
  • ***
  • Berichten: 442
  • Geslacht: Man
  • Excel Specialist
Re:Datum laatste opening werkblad
« Reactie #4 Gepost op: 08 oktober 2006, 09:30:21 »
Tornado,

In een cell op uw werkblad (eventueel buiten beeld) zet u
=Today().

Met een Macro of via een code in VB zet u een copy/paste
van de cell waarin de formule TODAY staat naar de cell waar u de datum wilt hebben.bv. cell Z1 copy   cell A1 paste
Bij het openen van de excel file zal de cell met de formule de datum van vandaag weergeven.

De cell A1 geeft de datum weer van de laatste copy/paste.
Voor het sluiten van het werkblad RUN Macro of via de code
te plaatsen in een VB module.

Groetjes
Firmin
PB easynote LE69KB,AMD quad-core,1000GB HDD,AMD Radeon HD8330,8GB DDR3
Windows 10,office 2007
MSE, Internet Explorer 11

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.191
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:Datum laatste opening werkblad
« Reactie #5 Gepost op: 08 oktober 2006, 10:34:57 »
Hallo Firmin,

dan kan je net zo goed =Vandaag() in de cel A1 zetten.
Copy-Paste zet de formule over, niet de datum die ermee gegenereerd wordt.
Er zal altijd de datum van het openen van het werkblad staan, nooit de datum wanneer dit werkblad LAATST  geopend (of gesloten) werd.
Oplossing: zet deze macro niet in een module maar in het betreffende werkblad in VBA:

Sub worksheet_Deactivate()
Range("A1") = Date
End Sub

bij het verlaten van het werkblad krijgt de cel A1 de waarde datum, tot het werkblad opnieuw verlaten wordt. Bij het openen van het werkblad blijft dus de oude datum in A1 staan.

:) SoftAid :)
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline firmin

  • Ervaren lid
  • ***
  • Berichten: 442
  • Geslacht: Man
  • Excel Specialist
Re:Datum laatste opening werkblad
« Reactie #6 Gepost op: 08 oktober 2006, 10:59:13 »
Hallo SoftAid,

Omdat dat bij mij altijd werkt een klein voorbeeldje in bijlage

Firmin
PB easynote LE69KB,AMD quad-core,1000GB HDD,AMD Radeon HD8330,8GB DDR3
Windows 10,office 2007
MSE, Internet Explorer 11

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.191
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:Datum laatste opening werkblad
« Reactie #7 Gepost op: 08 oktober 2006, 11:04:39 »
Hallo SoftAid,

Omdat dat bij mij altijd werkt een klein voorbeeldje in bijlage

Firmin


Fijn Firmin, maar dat is een hele omweg, plus je moet op een knop drukken. Vergeet je op de knop te drukken, geen datum!!
Dan moet je het accent nog weghalen (Esc) van K1, anders kan je problemen krijgen als je in dat werkblad werkt.

:) SoftAid :)

Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline firmin

  • Ervaren lid
  • ***
  • Berichten: 442
  • Geslacht: Man
  • Excel Specialist
Re:Datum laatste opening werkblad
« Reactie #8 Gepost op: 08 oktober 2006, 12:24:21 »
SoftAid,

Dergelijke bewerking laat ik lopen via VB.

In de zin van

Sub This workboek open()
code voor het plaatsen van de datum
Range("K1") formula:="Today()"
end sub

Sub This workbook before save()
de copy/paste code

Eenmaal de code geschreven is, is er geen omweg meer en zal de aanpassing automatisch gedaan worden.

Groetjes

Firmin
PB easynote LE69KB,AMD quad-core,1000GB HDD,AMD Radeon HD8330,8GB DDR3
Windows 10,office 2007
MSE, Internet Explorer 11

Offline firmin

  • Ervaren lid
  • ***
  • Berichten: 442
  • Geslacht: Man
  • Excel Specialist
Re:Datum laatste opening werkblad
« Reactie #9 Gepost op: 08 oktober 2006, 12:29:49 »
SoftAid,

Nog een kleiene aanvulling.

Wanneer ik tot april nog werkte, heb ik voor controle op gebruik van excel files, deze procedure zelfs nog uitgebreid.

Ik gebruikte de formule NOW(), zodoende had ik datum en tijd. In de volgende kolom kwam de username.
Iedere gebruiker had een eigen username, FORMAT  GENERAL
en onderaan USERNAME. Deze kan zelfs veranderd worden.

Zodoende kon ik op de minuut na zien wie als laatste de file had bewerkt.

Firmin
PB easynote LE69KB,AMD quad-core,1000GB HDD,AMD Radeon HD8330,8GB DDR3
Windows 10,office 2007
MSE, Internet Explorer 11

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.191
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:Datum laatste opening werkblad
« Reactie #10 Gepost op: 08 oktober 2006, 12:57:29 »
Dergelijke bewerking laat ik lopen via VB.
doe ik toch ook ???

Citaat
Sub This workboek open()
code voor het plaatsen van de datum
Range("K1") formula:="Today()"
end sub
Sub This workbook before save()
de copy/paste code
Nog steeds 2 macro's, waarvan de laatste de copy-paste pas gaat uitvoeren als het werkboek wordt afgesloten.
De TS wilt dat de datum dat het WERKBLAD voor het laatst werdt gebruikt op A1 komt te staan als hij dat WERKBLAD opnieuw opent.
PS: Als je hier code opgeeft, probeer ze dan correct weer te geven. Beginnende Excellers leren niets als ze foute code zien staan.
voorbeeld: Sub This workboek open() >> Sub ThisWorkbook()
Ik gebruikte de formule NOW(), zodoende had ik datum en tijd.
In de volgende kolom kwam de username.
Iedere gebruiker had een eigen username, FORMAT  GENERAL
en onderaan USERNAME. Deze kan zelfs veranderd worden.
Zodoende kon ik op de minuut na zien wie als laatste de file had bewerkt.
Daar vraagt de Topic Starter niet naar :(.
Ik probeer het eenvoudig te houden. Bijkomende vragen kunnen nog steeds behandeld worden.

:) SoftAid :)
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:Datum laatste opening werkblad
« Reactie #11 Gepost op: 08 oktober 2006, 20:41:15 »
Sub This workboek open()
code voor het plaatsen van de datum
Range("K1") formula:="Today()"
end sub

Deze topic samengevat, zoals ik de vraag interpreteer: gebruik

Private Sub Workbook_Open()
    Worksheets("jouwbladnaam").Range("A1") = Date
End Sub

voor de datum, en

Private Sub Workbook_Open()
    Worksheets("jouwbladnaam").Range("A1") = Now
End Sub

als je het tijdstip wilt. Doe

Application.UserName

erbij voor de username.

Hopelijk heb ik een aantal mistbanken kunnen weghalen.

Wigi
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:Datum laatste opening werkblad
« Reactie #12 Gepost op: 09 oktober 2006, 14:21:08 »
Tornado,

Er is een verschil in mening bij een aantal posters. Wil je de datum van laatste opening van het bestand? Of wil je, voor elk tabblad in je bestand afzonderlijk, weten wanneer dat het laatst gezien was.

Anders gezegd, gaat het over het openen van een bestand? Of het activeren van een werkblad?

Mvg

Wigi
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Tornado

  • Ervaren lid
  • ***
  • Berichten: 363
  • Geslacht: Man
  • Bedankt voor uw reactie !
Re:Datum laatste opening werkblad
« Reactie #13 Gepost op: 09 oktober 2006, 17:21:41 »
Hallo oplossers,
Ik had eigelijk gewoon de datum in een cel, van de laatste opening. op de eerste pagina

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

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.191
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:Datum laatste opening werkblad
« Reactie #14 Gepost op: 09 oktober 2006, 17:27:38 »
Hallo Tornado,

De vraag is: wil je in de cel A1 van blad1 de datum dat:

1 - het werkboek voor het laatst werd geopend, of
2 - het werkblad blad1 werd bekeken, of
3 - iets anders?

Groeten,

:) SoftAid :)
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

 


www.combell.com