niet functionernde programcode cane

[LVWO]

hallo

In excel 2003 werkt onerstaande wel. In 2007 niet
Wat is er verkeerd? Moeten bepaalde opties geactiveerd worden ?


bedoeling :

De rijen zijn meetoestellen , de kolommen metingen . Voor sommige metingen is het belangrijk de bijhorende datum te kennen van de ingave . Om dit niet te moeten in tikken ( gevaar voor fouten ) schreef ik onderstaande kode .
Ook moest het huidige maximum bijgehouden worden en de datum waarop dit max werd bereikt.

In mijn geval : kolom 17 = meting , kol 18 = bijhorende datum
kol 20 = het maximun , kol 21 = datumwijziging maximum
Dit functioneert niet. Wat is er fout ?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 17 Then
Target.Offset(0, 1).Value = Date 'Datum van de meting
If Target.Value > Target.Offset(0, 3).Value Then 'Nieuw maximum bereikt
Target.Offset(0, 3).Value = Target.Value
Target.Offset(0, 4).Value = Date
End If
End If
End Sub

alvast bedankt voor de tips

 

[Timmiesch]

Ik ben blijkbaar niet zo geniaal met VB als jou want zou zelf niet zo'n code kunnen schrijven. Maar wat ik wel weet is dat in 2003 en 2007 veel benamingen weer anders worden genoemd. Misschien dat dit het probleem is?

 

[Finch]

Heb je macro's ingeschakeld binnen Excel 2007? Zo niet, dan zal geen enkele macro werken.