Doppelklick auf Zelle - Fehler in Intersect?

Hallo.
Ich arbeite schon lange an einem Problem, für das ich bis jetzt keine Lösung finden konnte.
Ich muss gestehen, dass ich mich VBA erst sehr langsam nähere und mein Verständnis noch sehr zu wünschen übrig lässt.
Viel meine Code sind noch Internet Schnipsel und deshalb für Profis manchmal nur kopfschüttelnd ertragbar.
Ich habe das Ziel, mit Doppelklick des aktiven Sheets in den Zellen B12:C42 (und nur da) eine UF zu öffnen, das dann bestimmte Werte aus der jeweiligen Zeile ausliest. Alle Sheets sind mit Blattschutz versehen und die meisten Zellen gesperrt. So auch die Zellen B12:C42.
Aber jedesmal, wenn ich den Doppelklick ausführe, öffnet sich die UF nur sporadisch. Manchmal "öffnet" der Doppelklick auch nur die "ausgewählte" Zelle, wie im Bild zu erkennen.
Userbild

Wo liegt hier der Fehler in der Intersect-Anweisung?
Vielleicht kann mal jemand drüber schauen.
Vielen Dank im Voraus
https://www.herber.de/bbs/user/133448.xlsm
LG
Peer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
2 Dinge:
Ich würde die DoubleClick Procedure umschreiben auf

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
'vorhandenen Blattschutz entfernen 

    If Not Intersect(Target, Range("B12:C42")) Is Nothing Then
        ActiveSheet.Unprotect
        Cells(Target.Row, Target.Column).Locked = False
        Application.EnableEvents = False
        cancel = True
        frm_Tag.Show
        Cells(Target.Row, Target.Column).Locked = True
        ActiveSheet.Protect
        Application.EnableEvents = True
    End If

End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Und auch folgende Procedur (wen dur "End" verwendest stoppt dass Makro, das würde auch bedeuten das die Events nicht mehr enabled werden.

Private Sub btn_Abbrechen_Click()
    Unload Me
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Beliebteste Forumthreads (12 Monate)

Doppelklick auf Zelle - Fehler in Intersect?

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Doppelklick auf Zelle - Fehler in Intersect?

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread