besten dank
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Range("$K$1").Copy Range("$A$1")
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Range("$L$1").Copy Range("$A$1")
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" And Target.HasFormula Then
Target = Right(Target.Formula, Len(Target.Formula) - 1)
Else
Target.FormulaLocal = "=" & Target
End If
Cancel = True
End Sub