Datum blokkeren

[pat61]

Graag advies over het volgende:
Stel u een tabel voor met namen van mensen die aan een activiteit deelnemen. In zone A1 komt de naam van de deelnemer, in zone A2 de datum van zijn inschrijving. Zodra ik in A1 een naam invul, wil ik dat in A2 automatisch de datum van vandaag verschijnt, maar dan mag die datum uiteraard niet meer veranderen
De functie now() heeft dus geen zin, want dan wordt A2 steeds gerefreshed als er iets in de sheet verandert.
Wie wil me helpen?

 

[Wigi]

Graag advies over het volgende:
Stel u een tabel voor met namen van mensen die aan een activiteit deelnemen. In zone A1 komt de naam van de deelnemer, in zone A2 de datum van zijn inschrijving. Zodra ik in A1 een naam invul, wil ik dat in A2 automatisch de datum van vandaag verschijnt, maar dan mag die datum uiteraard niet meer veranderen
De functie now() heeft dus geen zin, want dan wordt A2 steeds gerefreshed als er iets in de sheet verandert.
Wie wil me helpen?

Waarom typ je dan niet:

11/9

ipv. =now

 

[jpvs]

Zet dit achter je blad.

Als je nu een waarde zet in kolom A word er automatisch de datum van vandaag in kolom B gezet.

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

Pierre

 

[pat61]

Dank voor de snelle antwoorden!!!
En het werkt dan nog op de koop toe. Ik moet wel nog eens wat andere dingen testen om te zien of ze niet in conflict komen, maar op het eerste gezicht ziet het er goed uit.
Dankjewel!

 

[CorVerm]

Zet dit achter je blad.

Als je nu een waarde zet in kolom A word er automatisch de datum van vandaag in kolom B gezet.

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

Pierre

Pierre,
Hoe kan ik na "Date" aangeven dat er alleen de dag of de maand moet komen te staan?
Of is daar een ander stukje code voor nodig?

 

[Wigi]

Pierre,
Hoe kan ik na "Date" aangeven dat er alleen de dag of de maand moet komen te staan?
Of is daar een ander stukje code voor nodig?

Wijzig de Celeigenschappen van de bewuste cellen.

 

[CorVerm]

Wigi,
Hoe simpel kan het zijn.
Bedankt.