Target unverträglich
01.03.2021 14:48:29
Bernd
Wo liegt die?
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Or Target.Column = 5 Or _
Target.Column = 6 Or Target.Column = 7) And Target.Value "" Then
Range("A" & Target.Row).Value = Date
Else
Exit Sub
End If
End Sub
Danke für Hinweise!