X in Zelle

Question

Guten Morgen Forum,

ich möchte , wenn ich einen klick mit der linken Maustaste in Spalte N mache ein X erscheint, jedoch erst ab N9 abwärts, also wenn ich auf N15 klicke soll ein großes X erscheinen...wenn ich jedoch auf N 7 klicke soll nichts passieren... wie mach ich das?

Answer 1

Hallo,

das geht mit diesem Code

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("N9:N65536")) Is Nothing Then
Target.Value = "X"
End If
Application.EnableEvents = True
End Sub

Gruss
Rainer

Answer 2

Hi,

ich hätte es mit Doppelklick gemacht.
Kreuz in Zelle Link zurv Datei

Gruß Hajo

Answer 3

Danke für die schnellen Antworten, daß Problem ist aber nun, wenn ich die Zeile an der Nummer anklicke, wird die gesamte Spalte ge`X`t...

Also wenn ich links die auf die Zahl klicke, dann steht in jeder Zelle dieser Zeile ein X.... kann das nur durch den besagten Doppelklick behoben werden?

Answer 4

Hi,

du könntest ergänzen If Target.count>1 then Exit Sub

Gruß Hajo

Answer 5

Wo füge ich das ein?

Answer 6

Hi,

ich hätte das als erstes eingefügt, nach der Bezeichnung. Das war mir eigentlich klar, Du möchtest den Code ja nur ausfüllen falls nur eine Zelle gewählt.

Gruß Hajo

Answer 7

Hallo Hoax,

falls es noch Unklarheiten gibt, hier der geänderte Code.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("N9:N65536")) Is Nothing Then
Target.Value = "X"
End If
Application.EnableEvents = True
End Sub

Gruss
Rainer

Answer 8

Danke nochmal, so hatte ich es auch angedacht, muß es morgen nochmal in der Firma ausprobieren, hab mir, so glaube ich, irgendwie die Exceldatei zerschossen...

Grüße

Answer 9

funktioniert einwandfrei, kann man diese Aktion jedoch auch mit einem doppelklick machen? Mit dem einmalklick gibt es Probleme...

Gruß

Hajo

Answer 10

Hallo Hajo,


ja, das geht so.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("N9:N65536")) Is Nothing Then
Target.Value = "X"
End If
Application.EnableEvents = True
End Sub

Gruss
Rainer