Hallo Zusammen,

möchte in meiner Tabelle per Doppelklick in Spalte G das Datum (funktioniert auch) und in Spalte H ein x per Doppelklick einfügen.
mein Code ist folgender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim varCol: varCol = "G7:G49"
If Target.Cells.Count = 1 Then
If varCol = "" Then varCol = Target.Column
If Not Intersect(Target, Range("G7:G49")) Is Nothing Then
Cancel = True
Target.Value = Date
End If
End If

End Sub

Danke