Event BeforeDoubleClick

[jan2007]

Geacht forum,

Ik wil een bepaalde MSgBox laten zien als je op bepaalde cellen (B20 en B22) dubbelclickt in een werkblad, waarom werkt de onderstaande code niet?

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

Dim ohwcode As String

If Target.Address = Range("b20").Address Or Range.("b22").Address Then

ohwcode = MsgBox("OHW-Code Omschrijving")
End If

End Sub

Met vriendelijke groet,

Jan 2007

 

[Axel Hagg]

Event BeforeDoubleClick >

Dag jan2007,


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim ohwcode As String

If Target.Address = Range("b20").Address Or Target.Address = Range("b22").Address Then ohwcode = InputBox("ohw-code intypen", "OHW-Code Omschrijving")
End Sub


Zo werkt het wel.

Succes,

Axel

 

[jan2007]

Dag jan2007,


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim ohwcode As String

If Target.Address = Range("b20").Address Or Target.Address = Range("b22").Address Then ohwcode = InputBox("ohw-code intypen", "OHW-Code Omschrijving")
End Sub

Zo werkt het wel.

Succes,

Axel

Dag Axel,

Ik had het op een andere manier opgelost, maar ik ben toch blij met je antwoord omdat ik nu weet wat er mis ging.

Groet,

Jan2007