slette indhold i celle hvis en anden celle bliver tom

Hej igen,

Det kan klares med en lille tilføjelse til løsningen fra tidligere spørgsmål. Se herunder:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Target <> "" Then
            Cells(Target.Row, 2) = Now
        Else
            Cells(Target.Row, 2) = ""
        End If
    End If
End Sub

Arr men der er jo ikke et øje tørt.

Jeg var et led længere ude og så modsagde den jo sig selv og ville hverken det ene eller det andet.