Probleempje bij Worksheet_BeforeDoubleClick

[Scallebe]

Goedenavond ontwikkelaars,

in de cellen B6:B34 wordt er bij dubbelklikken een Form geopend. Geen probleem hier.

Echter wanneer ik een willekeurige (andere) cel dubbelklik dan opent de Form zich ook.

Hoewel de Range is bepaald in de code.

Waarom opent de Form dan ook bij dubbelklikken van een andere cel?

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

    If Not Application.Intersect(Target, Range("B6:B34")) Is Nothing Then
        CANCEL = True
    End If

    frmInputGegevens.Show

End Sub

Thanks

Pascal

 

[VenA]

Even exit sub in de code opnemen.

 

[Scallebe]

VenA,

Bedankt voor de reactie :thumb:

En waar zet ik dat regeltje? Na End If

Greetz

Pascal

 

[Scallebe]

Of zo ?

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

    If Not Application.Intersect(Target, Range("B6:B34")) Is Nothing Then
        CANCEL = True
        [COLOR="#FF0000"]Exit Sub[/COLOR]
    End If

    frmInputGegevens.Show

End Sub

 

[Scallebe]

Mijn oplossing klopt niet

Nu opent de form bij elke cel behalve de vooropgestelde Range.

 

[VenA]

Wat zal NOT in een IF statement doen?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, CANCEL As Boolean)
  If Not Application.Intersect(Target, Range("B6:B34")) Is Nothing Then frmInputGegevens.Show
  CANCEL = True
End Sub

 

[Scallebe]

Euhmmm

Als de doubleclick NOT gebeurd in bepaalde Range moet hij Cancel(len)?

 

[Scallebe]

VenA

Bedankt voor de oplossing

 

[edmoor]

Die Cancel is niet om de Sub te stoppen maar om Excel te vertellen dat de actieve cel niet in Edit Mode gezet moet worden.

 

[VenA]

Application mag je weglaten uit de code.

Cancel heeft niets te maken met de procedure die uitgevoerd wordt, maar om de 'edit mode' van de cel weer op normaal/uit te zetten.

Zoals ook aangegeven door edmoor