Doppelklick auf Zelle

[Kaywarri124]

Guten Tag meine Excel Fans,

ich verzweifle noch. Ich möchte per Doppelklick in die Spalte A:A ein "X" in die jeweilige Zelle haben.

Das ist der Code mit dem ich das machen möchte, soll auch gehen, aber wenn ich doppel klick in eine Zelle mache, passiert das was passieren soll, ich kann reinschreiben, aber es kommt kein "X".

Was muss ich machen das es geht.

Ps. Der code steht im Tabellenblatt 1 nicht in einem Modul

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
 If Intersect(ActiveCell, Range("A1:A5000")) Is Nothing Then Exit Sub
 
 Cancel = True
 If ActiveCell = "X" Then
 ActiveCell = ""
 Else:
 ActiveCell = "X"
 End If
 End Sub

[WillWissen]

Hi,

wo ist dein Problem? Das Makro macht genau das, was es soll. Egal in welcher Zelle ich in Spalte A doppelklicke - es wird jedesmal brav ein "X" gesetzt und bei nochmaligem DK wieder entfernt.

[Kaywarri124]

  Hey willwissen,

ja das mag ich auch nicht anzweifeln... daher bin ich ja so am pissig auf mich. Wenn ich Doppelklicke dann kann ich nur in die Zelle schreiben. Muss ich da evtl was Formatieren oder
muss die Spalte leer sein :16: :22:

[WillWissen]

Hi,

hast du in deiner Datei Makros zugelassen (Optionen==> Trustcenter==> Einstellungen... ==> Makroeinstellungen)?

[Kaywarri124]

Ich habe jetzt mal eine neue Mappe aufgemacht und habe das selbe Problem. Ich Kopiere den Code in die Tabelle und kann bei DK nur in die Zelle schreiben.

[Kaywarri124]

  Danke Willwissen, ich weis nicht was das sollte aber jetzt geht es. Habe Excel geschlossen und neu gestartet....

Naja jetzt geht's :05: :05: