habe eine Frage: wenn in Zelle D12 eine Änderung vorgenommen wurde,
soll in Zelle D13 das aktuelle Datum automatisch gesetzt werden.
geht das ?
Gruß Bernd
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("D12").Value <> "" Then
Range("D13").Value = Date
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D12").Value <> "" Then
Range("D13").Value = Date
End If
End Sub