Wenn Zelle leer dann
10.11.2017 09:32:47
Jens
wie passe ich den Code so an, dass wenn in der Ziel Spalte 2 nichts steht, dass der Code ausgeüfhrt wird. Ansonsten eben nicht.
Irgendwie geht das mit meiner Anpassung nicht.
Private Sub worksheet_change(ByVal target As Range)
If target.Column 2 Then Exit Sub
If target.Column = "" Then
target.Offset(, 1) = Format(Now(), "DD.MM.YYYY")
End If
End Sub