ALS functie en huidige datum

[sis123]

De tabel heeft een kolom afpunting met "x" en een kolom datum.

Als ik in de kolom afpunting "x" plaats komt de huidige datum automatisch.
ALS(A2="x";VANDAAG();"")

Nu de volgende dag wijzigt deze datum in de nieuwe huidige datum. Hoe kan ik dit vermijden ?

 

[Wigi]

Met de sneltoetscombinatie Ctrl-; kan je de datum vast erin zetten.

 

[sis123]

Met de sneltoetscombinatie Ctrl-; kan je de datum vast erin zetten.

ok maar het zou automatisch moeten gebeuren

 

[Wigi]

Zet dan met een Worksheet_Change event de datum weg, je gebruikt voor de datum Date.

Zoek eens op het forum, het is al vaak voorgekomen hier.

Nadeel is wel dat nu VBA altijd in werking is, eender welke cel je wijzigt, er moet telkens gekeken worden of de datum al dan niet gezet moet worden.

Wigi

 

[Wigi]

Hier is ook nog een interessante link:

http://www.mcgimpsey.com/excel/timestamp.html

 

[sis123]

Oplossing gevonden in archief helpmij

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Value > 0 Then
With Target
.Offset(0, 1) = Date
End With
End If

End Sub

 

[Wigi]

Maak er dit van:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Value > 0 Then
[B]Application.EnableEvents = False[/B]
With Target
.Offset(0, 1) = Date
End With
[B]Application.EnableEvents = True[/B]
End If

End Sub

Wigi