Wanneer is het voor het laatste ge-update?

[Kawaknaller]

Lange titel sorry.
In een excell sheet maak ik een overzicht van alle beamer en smartboard computers.

Nu zou ik graag op 1 regel willen zien de dag, datum en tijdstip dat er iets veranderd is.
Dus een regel als:

Laatste update dinsdag 02-02-2011 om 08:28uur.

Kan ik zoiets simpel maken en zo ja hoe doe ik dat?
De regel plaats ik dan het liefste ergens bovenin.

PS Via de koptekst zou het eventueel ook kunnen heb ik net gemerkt maar die zie ik niet steeds in beeld

 

[jverkerk]

Ik gebruik deze en werkt goed, makkelijk aan te passen.

http://www.exhelp.be/vba/359

 

[Kawaknaller]

Bedankt maar euh daar kan ik niks mee, ik heb geen VBA kennis.
Is er geen formule voor?

 

[jverkerk]

Heb je geen vba kennis voor nodig, kopieer de code en plak het achter blad 1, Rechtermuisknop op blad 1 programmacode kiezen plakken afsluiten, iets invullen op bv c2 en het wordt aangepast. De range is B1:E100 en dit kun je zelf veranderen, bekijk de code maar eens goed.

=NU() geeft datum en tijd
=VANDAAG() geeft datum vandaag

 

[Kawaknaller]

Sorry maar het lukt niet.

Die range regels zijn dat de regels waar onder elkaar die zinnen komen?
Ik heb ook getracht dit in de breedte te krijgen (wil het nml zien op de regel B) maar dan komt er een foutmelding.
De code heb ik aangepast naar B1 B2 B3 en B4 maar helaas.

Ik stuur de excellsheet even mee.

 

[Kawaknaller]

Gelukt!
Hij overschreef de cellen A1 tm A4 en dat viel mij nu pas op.

Ik heb de andere cellen verlaagd (cellen toegevoegd) en nu zie ik het.
Nu ga ik even prutsen om te zien of ik het ook in de breedte kan krijgen.

Bedankt zover!:thumb:

 

[Kawaknaller]

Ik zal de status na de post aanpassen...

Ik heb de code aangepast en nu komt het keurig in de breedte..

Private Sub Worksheet_Change(ByVal Target As Range)

'************************
'* HTTP://WWW.EXHELP.BE *
'* Some rights reserved *
'************************

Dim bereik As Range
Dim controleer As Range

With ActiveWorkbook.Sheets(1)

Set bereik = .Range("A3:C100")
Set controleer = Intersect(bereik, Target)

If Not controleer Is Nothing Then

.Range("A1") = "Laatste wijziging op"
.Range("B1") = DateValue(Now)
.Range("C1") = "om"
.Range("D1") = TimeValue(Now)

End If

End With

End Sub

:thumb:

 

[jverkerk]

Aangepast, leuk hé het zelfde en ik heb ook geen verstand van vba, er zijn waarschijnlijk betere oplossingen, bijvoorbeeld dat je een naam in moet vullen wie hem aangepast heeft.

 

[Kawaknaller]

Bedankt J!

Ik liep echter tegen een onverwacht probleempje aan, zodra ik het wil saven komt de melding dat het VB-project niet opgeslagen kan worden in werkmappen zonder macro's.

Kies ik JA dan werkt dat script niet meer, kies ik nee dan kan ik ineens wel opslaan echter als ik dan open is het script weg.

Het blijkt dat ik dus een verkeerd bestandstype gebruik en hem moet opslaan als werkmap met macro (*.xlsm)

Ik dacht ik post het nog even, wellicht hebben andere lezers hier ook iets aan.