Z.B. J19 und K19
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$J$19" Then
Target = Date
Cancel = True
End If
End Sub
Gruss MaBlu
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$J$19" Then
Target = Date
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Offset(0, 0).Address(False, False) = "J19" Then
Target = Date
Cancel = True
End If
End Sub
MfG Bernd