Private Sub Worksheet_BeforeDoubleClick - - geht nur einmal

STeve · 2024-10-24T16:55:41+00:00

Hi liebe Helferlein. Bräuchte eure Hilfe. In einer Tabelle habe ich dieses Event eingebaut: Worksheet - BeforDoubleclick Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Call mach24erbeidoppellklickeintragen End Sub (Allgemein) - mach24erbeidoppellklickeintragen Sub mach24erbeidoppellklickeintragen() With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With msgbox "geht" With ActiveCell .FormulaR1C1 = "06:30" ' Setzt die aktive Zelle auf 06:30 End With With Application .Calculation = xlCalculationAutomatic .EnableEvents = True .ScreenUpdating = True End With End Sub Der Code läuft nur einmal nach öffnen der Datei ab. Danach nicht mehr???? Es muss mit: With ActiveCell .FormulaR1C1 = "06:30" ' Setzt die aktive Zelle auf 06:30 End With zusammen hängen?????? Habt ihr eine Idee!!! Danke

Hallo STeve,

wenn Du alles wegwirfst, was nicht nötig ist, sieht das Gesamt wesentlich schlanker aus.

Ich gehe davon aus das irgendeine unbehandelte Fehler passiert. Dann wird der Application.EnableEvents = True nicht mehr durchgeführt. Also die Events nicht mehr reaktiviert.
Du kannst (eventuell, weil nur vermutet) das Problem mit "on error resume next" umgehen. Dann wird auf alle Fälle die nächste Anweisung gemacht.

'in Codepane vom Arbeitsblatt

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Cancel = True

    mach24erbeidoppellklickeintragen

End Sub



'im Allgemeinen Modul

Sub mach24erbeidoppellklickeintragen()

    On Error Resume Next

    Application.EnableEvents = False

    ActiveCell.FormulaR1C1 = "06:30" ' Setzt die aktive Zelle auf 06:30

    Application.EnableEvents = True

End Sub

VG
Yal

Hallo Ralph.............cool dass du schon am helfen bist ;-)

Es hat nichts mit dem Zeiteintrag zu tun.
Habe es geändert auf:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Msgbox "Geht!"
Target.Value = "Hallo"
End Sub

geht auch nur einmal..............dann startet es nicht mehr - bis ich auf und zu gemacht habe???

Wenn das Doppelklick-Ereignis in Excel VBA nicht gestartet wird, kann dies verschiedene Ursachen haben. Hier sind einige häufige Gründe und mögliche Lösungen:

Kann es sein dass nach dem ersten Klick:

5. Die Zelle ist möglicherweise im Bearbeitungsmodus
Problem: Wenn du eine Zelle bearbeitest (z. B. durch einfachen Klick oder Drücken von F2) und dann einen Doppelklick ausführst, wird das Ereignis nicht ausgelöst, weil die Zelle bereits im Bearbeitungsmodus ist.
Lösung: Vergewissere dich, dass die Zelle nicht im Bearbeitungsmodus ist, wenn du den Doppelklick ausführst.

Wie könnte ich das feststellen????? bzw. testen/lösen

danke

Private Sub Worksheet_BeforeDoubleClick - - geht nur einmal

Forumthread: Private Sub Worksheet_BeforeDoubleClick - - geht nur einmal

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Private Sub Worksheet_BeforeDoubleClick - - geht nur einmal

Forumthread: Private Sub Worksheet_BeforeDoubleClick - - geht nur einmal

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread