Dubbelklikken voor macro

[Chris15]

Ik heb een macro “Wissen”

Die wil ik in werking laten treden als ik dubbelklik op cel D1 (Hier staat de tekst Wissen)

Kan iemand deze formule aangeven?

PS, werkt deze macro dan ook als ik de cel geblokkeerd heb tegen wijzigingen?

 

[Cobbe]

Waarom is mijn antwoord (dubbelklikken om te wissen) nu ineens niet meer goed?

 

[Chris15]

Hoi Cobbe, dat werkte toen niet.

Nog niet geprobeerd in mn nieuwe werkblad, dat zal ik zo doen...

 

[covux]

waarom plaats je geen knop op D1 en Koppel je daar je macro aan?

hoef je geen formule voor te maken lijkt mij.


tenzij ik iets over het hoofd zie.

 

[Chris15]

Hoi Cobbe, dit is jou formule, kan jij die misschien aanpassen voor de Macro "Wissen"?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$1:$C$1" Then
Range("Te_Wissen").ClearContents
End If
End Sub

 

[Chris15]

Hoi Covux, voor de veiligheid wil ik dubbel klikken ipv een knop met 1 keer klikken.

 

[gast0660]

Zoiets waarschijnlijk in uw werkblad?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set oRange = Range("D1")
If Not Intersect(Target, oRange) Is Nothing Then
Range("Te_Wissen").ClearContents
end if
End Sub

 

[Chris15]

Hoi gast0660,
hij geeft een fout 1004 over de range?

 

[Cobbe]

Hier het bestand met werkende macro door dubbelklikken in D1

 

[gast0660]

Natuurlijk,
Een range kan
kan bv zijn ("A2:F10") , en niet ("Te_Wissen")

 

[Chris15]

Hoi Cobbe, weer dat gekke probleem dat de cellen geselecteerd blijven, zie bijlage

 

[Chris15]

Hoi gast0660, hahaha! dat zag ik te laat.

Maar ook bij jou code blijven de cellen geselecteerd zoals bij Cobbe.
Zie bijlage hier boven...

 

[Cobbe]

Dat wordt dan toch door iets bij u veroorzaakt want hier treedt dat niet op..

Anders moet je het originele bestand maar posten.

 

[Chris15]

Met een macro heb ik dat probleem niet, zou je de macro "Wissen" in die dubbelklik code kunnen zetten?

 

[covux]

Hoi Covux, voor de veiligheid wil ik dubbel klikken ipv een knop met 1 keer klikken.

Chris,

Je kan dan heel makkelijk de knop instellen op dubbel klikken.

Heb je ergens het bestand staan of kijk ik niet goed?

 

[Chris15]

Hoi Covux, ik heb liever geen knop maar tekst.

Als ik maar weet welke code ik moet gebruiken om de macro "Wissen" in de dubbel-klik code te gebruiken voor Dubbelklikken op D1

 

[Cobbe]

Maar die staat daar toch al de hele tijd in:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Address = "$B$1:$C$1" Then
      wissen
  End If
End Sub

 

[Chris15]

Cobbe, ik zie de naam van de macro "Wissen" er niet in staan. En dubbelklikken op D1 zie ik ook niet? (sorry hoor, maar ik ben nog aan het leren )

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$1:$C$1" Then
wissen
End If
End Sub

 

[Chris15]

Cobbe, Wissen zie ik staan! Ik zal de code meteen proberen!

 

[Chris15]

Ik kan klikken op D1 wat ik wil, maar het werkt niet Cobbe. Moet er nog iets aangepast worden?