Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Hoax vom 29.09.2022, 09:53 Options

X in Zelle

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?

Antwort schreiben

Antwort 1 von rainberg vom 29.09.2022, 10:03 Options

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

Antwort 2 von Hajo_Zi vom 29.09.2022, 10:13 Options

Hi,

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

Gruß Hajo

Antwort 3 von Hoax vom 03.10.2022, 10:26 Options

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?

Antwort 4 von Hajo_Zi vom 03.10.2022, 10:38 Options

Hi,

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

Gruß Hajo

Antwort 5 von Hoax vom 03.10.2022, 10:56 Options

Wo füge ich das ein?

Antwort 6 von Hajo_Zi vom 03.10.2022, 10:57 Options

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

Antwort 7 von rainberg vom 03.10.2022, 15:10 Options

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

Antwort 8 von Hoax vom 03.10.2022, 19:20 Options

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

Antwort 9 von Hoax vom 04.10.2022, 19:20 Options

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

Gruß

Hajo

Antwort 10 von rainberg vom 04.10.2022, 19:35 OptionsLösung

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

Antwort 11 von Hoax vom 04.10.2022, 19:41 Options

...mir ist die Geschwindigkeit der Antworten schon fast etwas unheimlich ;-)

Danke

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..