Zie niet wat er fout is

[Winkkie]

Hallo,

Ik heb een stukje VBA gevonden die de datum en tijd plaatst als ik in kolom 6 wat plaatst. Dat gaat goed echter als ik in deze cel een formule plaatst gebeurt er niets.

De code die ik gevonden heb is:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
If Target.Value = "1" Then
Target.Offset(0, -4).Value = Date + Time


End If
End If

End Sub

Wie kan en wil me helpen zodat als de waarde van de formule 1 is de datum en tijd ook geplaatst wordt.

Jan

 

[HSV]

"1"<> 1

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 6 and target.value = 1 Then Target.Offset(0, -4).Value = now
End Sub

Of na beter te hebben gekeken.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Cells(Target.Row, 6) = 1 Then Cells(Target.Row, 2).Value = Now
End Sub

 

[SjonR]

of:

Private Sub Worksheet_Change(ByVal Target As Range)
  If [F1] = 1 And Target.Address = "$J$1" Or Target.Address = "$K$1" Then [B1] = Now
End Sub

 

[Winkkie]

Dank heren,

ik red ik me eerst wel mee

 

[Winkkie]

Toch nog een vraagje.

Zodra ik de formule in een tabel zet doet hij het niet en als ik hem niet in een tabel plaats gaat het goed.

Wat gaat hier verkeerd????

 

[HSV]

Werkt hier prima hoor.

 

[VenA]

Welke formule en welke tabel? Uit het briljante voorbeeldje is het niet op te maken.