Datum vandaag vastzetten

[janvn]

Als ik in kolom C een waarde / tekst invoer wil ik dat er in kolom B een niet herrekenbare datum wordt ingevuld. Hiervoor heb ik op dit forum de volgende code gevonden tw;

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        If Range("B" & Target.Row) = "" Then
            Range("B" & Target.Row) = Format(Date, "dd-mm-yyyy")
        End If
    End If
End Sub

Is het mogelijk dat wanneer ik de in kolom C de waarde / tekst wist, dat de ingevulde datum in kolom B ook wordt gewist?

Wie o Wie kan mij daar mee helpen???

Bvd

Jan van Nieuwpoort

 

[Cobbe]

Test hem zo eens:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        If Range("B" & Target.Row) = "" Then
            Range("B" & Target.Row) = Format(Date, "dd-mm-yyyy")
        End If
    End If
    If Target.Column = 3 Then
        If Range("B" & Target.Row) <> "" Then
           If Target = "" Then
            Range("B" & Target.Row) = ""
           End If
        End If
     End If
End Sub

 

[janvn]

Werkt fantastisch!!!

Hartelijk dank voor de snelle reactie:thumb::thumb:

Nogmaals dank

Jan van Nieuwpoort

 

[VenA]

Aangezien de vraag nog niet op opgelost staat, kan je deze ook proberen.

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        If Target.Offset(, -1) = "" Then Target.Offset(, -1) = Format(Date, "dd-mm-yyyy") Else Target.Offset(, -1) = ""
    End If
End Sub

 

[HSV]

Of:

Sub Worksheet_Change(ByVal Target As Range)
'Application.EnableEvents = False
 With Target
  If .Column = 3 Then .Offset(, -1) = IIf(.Offset(, -1) = "", Format(Date, "dd-mm-yyyy"), IIf(Target = "", "", .Offset(, -1).Value))
    End With
 'Application.EnableEvents = True
End Sub

 

[janvn]

Allen hartelijk dank. Ik ben hier enorm mee geholpen. :thumb:

Met vriendelijke groet,

Jan van Nieuwpoort