Wie muss man den Code ergänzen, so das bei einem Doppelklick auf eine Zelle in Spalte E ein grosses "E" eingetragen wird.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([A3:A1048576, I3:I1048576, J3:J1048576, L3:L1048576], Target) Is Nothing Then
If Target.Value = Date Then
Target.Value = x1None
Else
Target.Value = Date
End If
Cancel = True
End If
End Sub
Gruss Markus