Goedemiddag,
In een programma gebruik ik in een aantal cellen de functie Dubbelklik. Bij het dubbelklikken
wordt een formulier geopend. Bij de eerste cel werkt het prima, maar bij de volgende cel komt de melding;
Compileerfout:
Er is een dubbelzinnige naam gevonden: Worksheet_BeforeDoubleClick
Bij de tweede cel wordt de Range gewijzigd in "Expl2004" en de UserForm in Userform2.Show
Toch zijn deze 2 wijzigingen blijkbaar niet voldoende, waar ga ik de fout in?
Groeten, Wim
In een programma gebruik ik in een aantal cellen de functie Dubbelklik. Bij het dubbelklikken
wordt een formulier geopend. Bij de eerste cel werkt het prima, maar bij de volgende cel komt de melding;
Compileerfout:
Er is een dubbelzinnige naam gevonden: Worksheet_BeforeDoubleClick
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("Expl2003")) Is Nothing Then UserForm1.Show
End If
End Sub
Bij de tweede cel wordt de Range gewijzigd in "Expl2004" en de UserForm in Userform2.Show
Toch zijn deze 2 wijzigingen blijkbaar niet voldoende, waar ga ik de fout in?
Groeten, Wim