Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Doppelklick-Ereignis

Doppelklick-Ereignis
04.12.2007 11:56:00
Larissa
Hallo,
ich habe hier ein Doppelklick-Ereignis und möchte gerne erreichen, dass nur ein "x" in den 3 Feldern angekreuzt sein kann. Dh, wenn man auf C10 klickt, sollen automatisch die Kreuze aus C11 und C12 verschwinden:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = Range("C10,C11,C12") Then
Cancel = True
If Target = "x" Then
Target = ""
Else
Target = "x"
End If
End If
End Sub


Vielen Dank für Eure Hilfe,
Lieben Gruß,
Larissa

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelklick-Ereignis
04.12.2007 12:12:30
Erich
Hallo Larissa,
meist du das hier?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C10:C12")) Is Nothing Then Exit Sub
Range("C10:C12").ClearContents
Target = "x"
Cancel = True
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Doppelklick-Ereignis
04.12.2007 12:14:27
Uduuh
Hallo,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C10,C11,C12")) Is Nothing Then
Cancel = True
If Target = "x" Then
Range("C10,C11,C12").ClearContents
Else
Range("C10,C11,C12").ClearContents
Target = "x"
End If
End If
End Sub


Gruß aus’m Pott
Udo

Anzeige
AW: Doppelklick-Ereignis
04.12.2007 12:59:00
Larissa
Hallo,
Dankeschön, ich habe das Modul von Erich eingefügt und es hat prompt funktioniert.
Ich bin mir aber sicher, dass Deine Lösung auch funzt, Udo.
Vielen Dank an Euch 2,
Gruß,
Larissa

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Doppelklick-Ereignis in Excel: So steuerst du die Auswahl


Schritt-für-Schritt-Anleitung

Um ein Doppelklick-Ereignis zu erstellen, das sicherstellt, dass nur ein "x" in den Feldern C10, C11 und C12 gesetzt werden kann, folge diesen Schritten:

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

  2. Suche im Projekt-Explorer die Tabelle, in der du das Doppelklick-Ereignis implementieren möchtest. Doppelklicke darauf.

  3. Kopiere und füge den folgenden VBA-Code in das Codefenster ein:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
       If Not Intersect(Target, Range("C10:C12")) Is Nothing Then
           Cancel = True
           Range("C10:C12").ClearContents
           Target = "x"
       End If
    End Sub
  4. Schließe den VBA-Editor und kehre zu deinem Arbeitsblatt zurück.

  5. Teste das Doppelklick-Ereignis, indem du auf eines der Zellen C10, C11 oder C12 doppelklickst.


Häufige Fehler und Lösungen

  • Fehler: Das Doppelklick-Ereignis funktioniert nicht.

    • Lösung: Stelle sicher, dass der VBA-Code im richtigen Arbeitsblattmodul eingefügt wurde und dass Makros in Excel aktiviert sind.
  • Fehler: Mehr als ein "x" wird gesetzt.

    • Lösung: Überprüfe, ob der Code Range("C10:C12").ClearContents korrekt eingefügt ist und vor dem Setzen des "x" ausgeführt wird.

Alternative Methoden

Falls du eine andere Herangehensweise bevorzugst, kannst du auch folgende Variante verwenden, um das Doppelklick-Ereignis zu steuern:

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

Diese Methode sorgt dafür, dass ein bestehendes "x" durch einen Doppelklick entfernt wird.


Praktische Beispiele

Wenn du das Doppelklick-Ereignis in einer Countdown-Tabelle implementierst, kannst du die Zellen C10, C11 und C12 verwenden, um verschiedene Countdown-Zeiten zu markieren. Jedes Mal, wenn du auf eine Zelle doppelklickst, wird sie zur aktiven Auswahl, während die anderen Zellen zurückgesetzt werden.


Tipps für Profis

  • Kombinieren von Ereignissen: Du kannst das Doppelklick-Ereignis mit anderen Ereignissen kombinieren, wie z.B. Worksheet_Change, um noch mehr Funktionalität zu erzielen.
  • Fehlerbehandlung: Implementiere Fehlerbehandlung im Code, um unerwartete Fehler elegant abzufangen.

FAQ: Häufige Fragen

1. Frage
Was mache ich, wenn der VBA-Code nicht funktioniert?
Antwort: Überprüfe, ob der Code im richtigen Modul eingefügt wurde und ob die Makros in deinen Excel-Optionen aktiviert sind.

2. Frage
Kann ich das Doppelklick-Ereignis auf andere Zellen anwenden?
Antwort: Ja, passe einfach die Zellreferenzen im Code an, um das Doppelklick-Ereignis in anderen Zellen zu implementieren.

Beliebteste Forumthreads (12 Monate)

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