Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

"X" per Doppelklick - Einstellungen?

Forumthread: "X" per Doppelklick - Einstellungen?

"X" per Doppelklick - Einstellungen?
26.06.2017 15:19:19
CarVogt
Hallo zusammen,
ich möchte in einem bestimmten Bereich per Doppelklick ein "X" in eine Zelle setzen (und evtl. auch wieder löschen).
Die Recherche hier im Forum und bei Tante Google hat schon vieles zu Tage gefördert...aber es funktioniert nicht :-(
Ich habe den jeweiligen Code ins Worksheet kopiert und den Bereich angepasst aber bei einem Doppelklick erscheint nur der blinkende Cursor in der Zelle.
Gibt es irgendwo eine Einstellung die gesetzt werden muss oder woran kann das sonst liegen?
Gruß
Carsten
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: "X" per Doppelklick
26.06.2017 15:25:10
Beverly
Hi Carsten,
dann poste doch mal deinen verwendeten Code - ich denke, da fehlt nur, dass die Reaktion auf die Eingabe abgeschaltet wird: Cancel = True

AW: "X" per Doppelklick
26.06.2017 15:54:07
CarVogt
Hallo Karin,
daran liegts leider nicht. Ich habe bereits mehrere Makros getestet. Nicht nur direkt aus dem Forum kopiert sondern auch Beispieltabellen runtergeladen. Gleiches Ergebnis, nur der Corsor in der Zelle blinkt.
Gruß
Carsten
Anzeige
AW: "X" per Doppelklick
26.06.2017 15:59:05
Beverly
Hi Carsten,
vielleicht musst du Excel mal reparieren?

AW: "X" per Doppelklick
26.06.2017 16:01:15
CarVogt
Ganz so schlimm ist es (zum Glück) nicht, ein Neustart hat gereicht.
Gruß
Carsten
AW: "X" per Doppelklick - Einstellungen?
26.06.2017 15:27:13
Luschi
Hallo CarVogt,
was soll der unqualifizierte Kommentar: ...aber es funktioniert nicht
Zeige doch erst mal Deinen Vba-Code; hier ist meiner, und den habe ich per Google-Suche
auf www.Herber.de gefunden vom 16.09.2004 20:40:15: 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("H3:H6")) Is Nothing Then
Target = "X"
Cancel = True
End If
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: "X" per Doppelklick - Einstellungen?
26.06.2017 15:52:01
CarVogt
Normalerweise würde ich auf so einen "unqualifizierten Kommentar" wie diesen gar nicht antworten aber genau dieser Code, ja den hatte ich auch schon gefunden, funktioniert bei mir nicht.
Gleiches gilt für:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'   x in die Zelle
Dim RaBereich As Range
Set RaBereich = Range("C6,C8,C10,C12,C15:C18,T24:AM48")
If Intersect(Target, RaBereich) Is Nothing Then Exit Sub
' Abbruch, wenn Aktion nicht im Zielbereich
Application.EnableEvents = False
Cancel = True
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub
oder auch:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B10:E10")) Is Nothing Or Not Intersect(Target, Range("I10:K10")) _
Is Nothing Then
If Target.Value  "X" Then
Target.Value = "X"
Else
Target.Value = ""
End If
Cancel = True
End If
End Sub
Und, ja, ich habe die Bereiche angepasst. Das hier sind nur die aus dem Forum kopierten Codes.
Gruß
Carsten
P.S. Es war hier im Forum mal üblich keine Nicknames zu verwenden.
Anzeige
AW: "X" per Doppelklick - Einstellungen?
26.06.2017 15:59:06
UweD
Hallo
meine Vermutung:
durch eine Programmunterbrechung sind die events ausgeschaltet
lass einmal das laufen
Sub ONNNNN
Application.EnableEvents = True
End Sub
LG UweD
AW: "X" per Doppelklick - Einstellungen?
26.06.2017 15:59:56
CarVogt
Danke, hat sich aber gerade geklärt. Ein simpler Neustart von Excel hats gebracht.
Gruß
Carsten
Anzeige
AW: "X" per Doppelklick - Einstellungen?
26.06.2017 16:03:23
UweD
dann kann meine Vermutung zutreffen.
Application.EnableEvents = True
wird beim ExcelStart auf true gesetzt
LG UweD
;
Anzeige
Anzeige

Infobox / Tutorial

"X" per Doppelklick in Excel einfügen

Schritt-für-Schritt-Anleitung

Um ein "X" per Doppelklick in Excel in eine Zelle einzufügen, folge diesen Schritten:

  1. Öffne dein Excel-Dokument und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Suche im Projektfenster das Arbeitsblatt, in dem du das Doppelklick-Event einrichten möchtest.

  3. Doppelklicke auf das Arbeitsblatt, um das Code-Fenster zu öffnen.

  4. Füge den folgenden Code ein:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
    If Not Intersect(Target, Range("H3:H6")) Is Nothing Then
        Target.Value = "X"
        Cancel = True
    End If
End Sub

  5. Passe den Bereich Range("H3:H6") an deine Bedürfnisse an.

  6. Schließe den VBA-Editor und teste den Doppelklick in Excel.

Häufige Fehler und Lösungen

Wenn der Code nicht wie gewünscht funktioniert, könnten folgende Probleme auftreten:

  • Blinkender Cursor ohne Eingabe: Überprüfe, ob Application.EnableEvents möglicherweise deaktiviert ist. Führe den folgenden Code aus, um es wieder zu aktivieren:

    Sub ONNNNN
    Application.EnableEvents = True
End Sub

  • Code wird nicht ausgeführt: Stelle sicher, dass der Code im richtigen Arbeitsblatt eingefügt wurde und der Bereich korrekt definiert ist.

  • Doppelklick hat keine Wirkung: Manchmal kann ein einfacher Neustart von Excel das Problem lösen, wie es ein Benutzer im Forum angemerkt hat.

Alternative Methoden

Wenn der Doppelklick nicht funktioniert, kannst du auch folgende Alternativen ausprobieren:

  • Formeln verwenden: Statt VBA kannst du auch Formeln nutzen, um "X" in Abhängigkeit von anderen Zellen einzufügen.

  • Button hinzufügen: Erstelle einen Button in der Excel-Oberfläche, der beim Klicken ein "X" in die gewählte Zelle einfügt.

Praktische Beispiele

Hier sind einige Beispiele, wie du den Doppelklick zur Eingabe eines "X" verwenden kannst:

  1. Für einen bestimmten Bereich:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("C6,C8,C10,C12")) Is Nothing Then
        If Target.Value = "X" Then
            Target.Value = ""
        Else
            Target.Value = "X"
        End If
        Cancel = True
    End If
End Sub

  2. Mit mehreren Bereichen:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B10:E10,I10:K10")) Is Nothing Then
        If Target.Value <> "X" Then
            Target.Value = "X"
        Else
            Target.Value = ""
        End If
        Cancel = True
    End If
End Sub

Tipps für Profis

  • Achte darauf, dass die Makros in deiner Excel-Version aktiviert sind.
  • Teste den Doppelklick in verschiedenen Zellen, um sicherzustellen, dass der Code überall funktioniert.
  • Nutze Kommentare im VBA-Code, um die Funktionalität für zukünftige Änderungen zu dokumentieren.

FAQ: Häufige Fragen

1. Warum funktioniert mein Doppelklick nicht?
Überprüfe, ob der VBA-Code im richtigen Arbeitsblatt eingefügt wurde und ob die richtigen Zellenbereiche definiert sind.

2. Wie kann ich das "X" wieder entfernen?
Der Code kann so angepasst werden, dass er das "X" löscht, wenn es erneut angeklickt wird. Siehe die Beispiele für entsprechende Anpassungen.

3. Muss ich Excel neu starten, wenn es nicht funktioniert?
Ja, manchmal kann ein Neustart von Excel das Problem lösen, insbesondere wenn Application.EnableEvents deaktiviert ist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige