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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen