BeforeDoubleClick geht nicht

Forumthread: BeforeDoubleClick geht nicht

29.03.2009 20:45:58

Stefan

Hi Spezialisten
Habe ein komisches Phänomen,
Ich öffne von Datei a die Datei b. Es klappt alles wunderbar. Wenn ich in der Datei b bin und mich dort in den Userformen bewege ist auch noch alles gut. Gehe ich aber von der Userform in Datei b in ein Tabellenblatt und möchte zurück zu einer Userform mit den Code, geht nichts. Die Sicherheitsstufe ist auf niedrig eingestellt.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("Gesamt").EnableCalculation = True
Application.Visible = False
Eingang.Show
End Sub

Auch vom Sheet Holz zu Sheet Gesamt geht nichts.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("Gesamt").EnableCalculation = True
Application.GoTo Worksheets("Holz").Range("A16")
End Sub

Weiss jemand Rat?
Gruss
Stefan

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: BeforeDoubleClick geht nicht

29.03.2009 21:21:07

Stefan

AW: BeforeDoubleClick geht nicht

29.03.2009 21:21:07

Stefan

Hi
Habe es rausgefunden.
Application.EnabledEvents=true
Gruss
Stefan

Infobox / Tutorial

Behebung von Problemen mit BeforeDoubleClick in Excel VBA

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um Probleme mit der BeforeDoubleClick-Ereignisprozedur in Excel VBA zu beheben, kannst Du folgende Schritte ausführen:

Öffne die Excel-Datei, in der Du das Problem hast.
Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Finde das entsprechende Arbeitsblatt im Projekt-Explorer.

Füge den folgenden Code in das Codefenster des Arbeitsblatts ein:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Application.EnableEvents = True
    ' Zusätzliche Logik hier
End Sub

Stelle sicher, dass Application.EnableEvents auf True gesetzt ist. Das kann ein häufiger Grund sein, warum das BeforeDoubleClick-Ereignis nicht funktioniert.
Speichere die Änderungen und teste die Funktionalität.

Häufige Fehler und Lösungen

Einige häufige Fehler, die auftreten können, sind:

Ereignisse sind deaktiviert: Wenn Application.EnableEvents auf False gesetzt ist, wird BeforeDoubleClick nicht ausgeführt. Setze es auf True, um das Problem zu lösen.
Sicherheitsstufe: Überprüfe die Sicherheitseinstellungen in Excel. Wenn die Makros deaktiviert sind, wird der Code nicht ausgeführt. Stelle die Sicherheitsstufe auf niedrig ein, um die Ausführung von VBA zu ermöglichen.
Falsches Tabellenblatt: Achte darauf, dass der Code im richtigen Tabellenblatt eingefügt wird. Jeder Arbeitsblatt-Code ist spezifisch für das jeweilige Blatt.

Alternative Methoden

Wenn das BeforeDoubleClick-Ereignis nicht wie gewünscht funktioniert, kannst Du folgende alternative Methoden ausprobieren:

Worksheet_BeforeRightClick: Verwende dieses Ereignis, um eine alternative Interaktion zu ermöglichen. Der Code sieht ähnlich aus:
```
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' Deine Logik hier
End Sub
```
Button-Steuerelemente: Erstelle Schaltflächen oder UserForms, um Aktionen zu triggern, ohne sich auf das Doppelklicken zu verlassen.

Praktische Beispiele

Hier sind einige praktische Beispiele für die Verwendung von BeforeDoubleClick:

Öffnen einer UserForm:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True ' Verhindert die Standardaktion
    UserForm1.Show
End Sub

Wechseln zwischen Arbeitsblättern:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Application.GoTo Worksheets("Zielblatt").Range("A1")
End Sub

Datenberechnung aktivieren:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Worksheets("Datenblatt").Calculate
End Sub

Tipps für Profis

Nutze Cancel = True, um die Standard-Doppelklick-Aktion zu verhindern, wenn Du eine benutzerdefinierte Aktion implementierst.
Überlege, ob Du Worksheet_BeforeDoubleClick oder Worksheet_BeforeRightClick je nach Anwendungsfall verwenden möchtest.
Halte Deinen Code gut strukturiert und kommentiere komplexe Logik, um die Wartung zu erleichtern.

FAQ: Häufige Fragen

1. Warum funktioniert mein BeforeDoubleClick nicht?
Das kann daran liegen, dass Application.EnableEvents auf False gesetzt ist oder die Sicherheitsstufe zu hoch eingestellt ist.

2. Wie kann ich das Doppelklicken auf Zellen verhindern?
Setze Cancel = True in der BeforeDoubleClick-Ereignisprozedur, um die Standardaktion zu verhindern.

3. Gibt es eine Möglichkeit, den Doppelklick auf bestimmte Zellen zu beschränken?
Ja, Du kannst die Target-Range prüfen und nur für bestimmte Zellen Aktionen ausführen.

Beliebteste Forumthreads (12 Monate)