kann man mit einem mausklick automatisch einen zellinhalt erzeugen?
ich möchte auf A1 klicken mit der maus und dann soll in A1 ein x stehen.
ist das machbar?
vielen dank schonmal für euren beitrag.
gruß herbert
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
[A1] = "X"
Cancel = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Target = "x"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [a1:b10]) Is Nothing Then
If Target.Count = 1 Then Target = "x"
End If
End Sub