Zwei VBA Codes zusammenführen

Public AlterWert As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
AlterWert = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target  AlterWert Then Target.Interior.ColorIndex = 3
End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Const Datum_Spalte = 4
Dim ber As Range, z As Range
'Wenn Spalte D manuell geändert wird, "Undo"
If Not Intersect(Target, Columns(Datum_Spalte)) Is Nothing Then
Beep
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
Exit Sub
End If
Set ber = Intersect(Target, Me.UsedRange, Range("A2:C65536"))
If Not ber Is Nothing Then
Application.EnableEvents = False
For Each z In ber
Cells(z.Row, Datum_Spalte) = Date
Next z
Application.EnableEvents = True
End If