Formule VANDAAG vastzetten

[edmoor]

Zie voorbeeld in #13:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count = 1 Then '<- dit dus
        Select Case Sh.Name
            Case "Inkoop", "Verkoop"
                If Target.Column = 5 Then
                    Application.EnableEvents = False
                    Cells(Target.Row, 1) = IIf(Target <> "", Date, "")
                    Application.EnableEvents = True
                End If
            End Select
        End If
End Sub

 

[BOUKES]

Het lijkt nu goed te werken
Bedankt iedereen voor de hulp!!!!!

 

[Warme bakkertje]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    Select Case Sh.Name
        Case "Inkoop", "Verkoop"
            If Target.Column = 5 Then
                Application.EnableEvents = False
                Cells(Target.Row, 1) = IIf(Target <> "", Date, "")
                Application.EnableEvents = True
            End If
    End Select
End Sub

 

[snb]

Zo kan het ook:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    For Each it In Target
       If it.Column = 5 Then it.Offset(, -4) = IIf(it.Offset(, -4) = "", Date, it.Offset(, -4))
    Next
     Application.EnableEvents = True
End Sub

 

[BOUKES]

Tja, welke kan ik nu het beste gebruiken ?

 

[edmoor]

Wat je zelf het prettigst vind