hulp met formules

[bakerman]

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Count > 1 Then Exit Sub
    If Application.And(.Column = 2, .Value <> vbNullString) Then
        With .Offset(, -1)
            .NumberFormat = "dd/mm/yyyy hh:mm:ss"
            .Value = Now
        End With
    ElseIf Application.And(.Column = 2, .Value = vbNullString) Then
        .Offset(, -1).ClearContents
    End If
End With
End Sub

 

[nieuwsgierig]

Beste mensen, 

 

Hartelijk bedankt voor jullie hulp!!

 

Goed weekend!!

[kweezie wabbit]

Als je verder geen vragen of problemen meer hebt, geef dan een seintje zodat we dit onderwerp kunnen afsluiten.

[kweezie wabbit]

Geen reactie meer.

Dan sluiten we hier af.