Worksheet_change?

[Demeter]

Gegroet,

Ik probeer met behulp van een worksheet_change eenda tum in een cel te laten invullen.
Dit werkt gedeeltelijk. Namelijk als ik in mijn corresponderen cel niks heb staan wil ik dat deze datum ook verdwijnt.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
      
    If Target.Address = "$C$11" Then
        If Range("C11") <> "" Then
            Range("C21") = Format(Date, "[413]dd-mmmm-yyyy")
        End If
    End If

End Sub

Kom nog niet geheel uit de verwijzing van de target en hoe deze precies werkt.
Ben al op Ozgrid geweest maar denk dat ik vandaga liever lui dan moe ben . Zal wel door de sneeuw komen, zo meteen eens ff lekker ballen gooien .

Bedankt,
Ferenc

 

[Wigi]

Als ik het goed begrepen heb, 1 regeltje...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Address = "$C$11" Then Range("C21") = IIf(Target <> "", Format(Date, "[413]dd-mmmm-yyyy"), "")
End Sub

Wigi

 

[Demeter]

Wigi,

That's it.

Bedankt :thumb: ,
Ferenc