eender welke tekst

[frimout]

Ikke weer,

met onderstaande kan ik in cel B3 de datum laten zetten wanneer ik in B1 OK zet.
Hoe kan ik de formule aanpassen dat in B1 gelijk welke tekst kan geplaatst worden waardoor in B3 de datum komt te staan?

Thanks aan de meedenkers

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [b1].Address And Target <> "" Then
[b3] = Date 'wijzig naar believen
End If
If Target.Address = [b1].Address And Target <> "OK" Then
[b3] = "" 'wijzig naar believen
End If
End Sub

 

[Wigi]

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$b$1" And Target <> "" Then [b3] = Date
End Sub

Bedankt om in het vervolg wel code tags te gebruiken hier op het forum.

Wigi

 

[frimout]

werkt niet

Hoi Wigi,
Zal in het vervolg rekenig houden met je opmerking.
De code lijkt bij mij niet te werken. Ik heb deze gekopieerd en geplakt in de plaats van mijn code. Wat doe ik verkeerd?

 

[Wigi]

Neem $B$1

 

[frimout]

Nope, lukt nog niet,

Alvast bedankt, ik ga nu een beetje slapen want morgen vroeg uit de veren.

 

[Wigi]

Nope, lukt nog niet.

Dat is wel veel informatie die we hier krijgen...

Waarom geen voorbeeldbestandje met de fout erin?

 

[trucker10]

Mag ikke ook een poging doen ? met deze

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = [B1] And Target.Value <> "" Then
    With Target
        .Offset(2, 0) = Date
    End With
End If
End Sub

 

[Wigi]

If Target = [B1] And ...

Hiermee test je niet of Target cel B1 is. De Value property is de standaard eigenschap van een Range, niet Address. Dit gaat wel:

If Target.Address = [B1].Address And ...

en dat is langer dan hetgeen ik schreef

 

[snb]

Een alternatieve duit in het zakje:

If Target.Address & Target Like "$B$3?*" Then Target = Date