Problem mit Code

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean) 'setzt per  _
Doppelklick das aktuelle Datum & den Benutzernamen
Cancel = True
target = Date
target.Offset(, 3) = Environ("Username")
End Sub

Private Sub worksheet_change(ByVal target As Range) 'speichert das Datum Tabelle "Wartungsü _
bersicht
Dim dateDummy As Date
Dim loLetzte As Long
loLetzte = Worksheets("Wartungsübersicht").Cells(Rows.Count, 1).End(xlUp).Row + 1
If target = Range("C3") Then
dateDummy = target.Value
Worksheets("Wartungsübersicht").Cells(loLetzte, 1).Value = dateDummy
End If
End Sub