Date Formel bei Änderung Zelle
15.03.2019 11:26:51
René
ich habe ein Makro mit dem ich ein Datum in einer Zelle eintragen lassen wenn eine andere Zelle befüllt wurde. Nun möchte ich aber, dass das Datum nur in der Zelle erscheint wenn die andere Zelle nicht leer ist. Könnt ihr mir bitte einen Tipp geben.
Gruß René
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngz As Range
On Error GoTo Ende
Application.EnableEvents = False
For Each rngz In Application.Intersect(Columns("D"), Target).Cells
rngz.Offset(0, -3).Value = Date
Next rngz
Ende:
Application.EnableEvents = True
End Sub
Anzeige