Mutatiedatum bepalen

[Kees41]

Hoe kun je bij een wijziging in de data van het werkblad automatisch de mutatiedatum wijzigen?
En bij CTRL-z weer ongedaan maken?

 

[wieter]

Ik hoop dat je dit bedoelt.
Als je in de kolommen A tot J iets wijzigt, wordt ook de datum in kolom K gewijzigd

Bekijk bijlage 181640

 

[Kees41]

Inderdaad, dat bedoel ik.
De formule zou dan lijken op als(wijziging;vandaag();k1)
Maar ja, wat moet er staan op wijziging?

 

[wieter]

Kees, dit gebeurt niet met een formule.
Als het bestand geopend is, druk dan Alt+F11, dan zie je de code(1 regel)
Ik heb er een regeltje bijgevoegd, met de uitleg

Bekijk bijlage 181712

 

[Kees41]

Dank je, ik snap de bedoeling.

Ik heb geen ervaring met VBA, maar de code kan ik volgen.
Wanneer wordt deze code uitgevoerd? Kun je dat triggeren zodat het automatisch gaat?
Ik heb in je voorbeeld iets ingevoerd in een kolom, maar dan wordt niets in kolom k gewijzigd.

 

[wieter]

Raar dat het niet zou werken, je moet wel iets invullen of wijzigen in de kolommen A tot J, en dan komt de huidige datum in kolom K.
Dit zou automatisch moeten gaan. Hier werkt het in ieder geval.

 

[Kees41]

Ja, uiteraard heb ik dat gedaan. In verschillende kolommen geprobeerd.
Ik draai onder Windows 8 met Office 2010, Nederlandstalige versie. Kan daar een probleem in zitten.
Ik weet dat er een probleem zit in voorwaardelijke opmaak. Daarin had ik de regel waarin "dd=mm=yyyy" in voorkwam. Dit moest ik wijzigen in "dd-mm-jjjj".
Als het Nederlandstalig zou moet zijn, hoe ziet de regel er dan uit?

 

[wieter]

Post hier uw bestand (ontdaan van gevoelige info), anders blijft het gissen.
VBA-code is altijd engelstalig, hieraan kan het niet liggen.
Ook aan de Office-versie kan het ook niet liggen, het bestandje is gemaakt met office 2010.

 

[Kees41]

Mijn bestand hoef ik niet te posten. Het probleem is dat het voorbeeld programma van u niet werkt onder Windows 8.
Ik heb het ook geprobeerd op een andere PC onder Windows XP, daar werkt het wel. Dus het lijkt toch te liggen aan Windows 8.
Onder XP werkt de ctrl-z niet. Niet alleen dat de datum niet wordt terug gezet, maar ook de wijziging wordt niet ongedaan gemaakt.
Moet je alleen die VBA macro opnemen en die wordt dan aangeroepen bij elke wijziging? Hoe weet het systeem dat hij deze macro moet aanroepen.
In ieder geval bedankt zover. Ik heb toch het nodige geleerd. Maar misschien kun je me nog wat verder helpen.

 

[wieter]

De macro wordt aangeroepen met de eerste regel

Private Sub Worksheet_Change(ByVal Target As Range)

Worksheet_Change = wijziging in werkblad
Dus telkens als er iets wijzigt in het werkblad, wordt de code uitgevoerd.

Het zou me straf verwonderen dat de Windows-versie invloed heeft op een office-applicatie.
Het ongedaan maken met control+z, was niet opgenomen in de code, ik zou zo direct niet weten hoe het moet.
Ik vermoed dat dit moet gebeuren door de juiste Ascii-code in de de VBA te verwerken.

Mogelijk helpen de specialisten van het forum je verder

 

[Kees41]

Heel hartelijk dank voor uw bijdrage. Het is dus de naam van de macro die bepalend is voor de aanroep.
Jammer dat het zo in Windows 8 niet werkt. In Windows XP werkt het wel.
Nogmaals mijn dank. Ik laat de vraag nog even open staan, misschien zijn er anderen die hier ook ervaring mee hebben.