macro starten met dubbele muisklik

[bikkel9]

beste mensen,
ben bezig voor een paar digibeteten
deze willen graag dat er met een dubbele muisklik de
tijd in de cel geplaatst wordt
heb op het forum lopen zoeken en wel
manieren gevonden door middel van een knop
(heeft als nadeel dat je in de verkeerde cel kan staan en dan
op de verkeerde plek de tijd krijgt
ook kwam ik een manier tegen door middel van F1
geeft ook het probleem dat je in de verkeerde cel staat
is het mogelijk doormiddel van een dubbele muisklik in de cel
de macro te starten?
alvast bedankt voor de moeite

groeten
Bikkel9

 

[leofact]

Dat kan met een event (gebeurtenis) macro
In de VBA editor bij de sheet en niet in een module

BV zo:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim iKolom As Integer
Dim iRij As Integer
    iRij = Target.Row
        iKolom = Target.Column
            If iRij = 2 And iKolom = 2 Then
                Cells(iRij, iKolom) = FormatDateTime(Now, 4)
            End If
End Sub

Met iRij en IKolom wordt getest op welke cel er gedubbelklikt wordt.
In dit geval B2
Dat pas je makkelijk aan je eigen behoefte aan.
mvg Leo

 

[markboots]

zet in je worksheet:

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

Set Target = Range("A1") '< = Cel waarop dubbelgeklikt moet worden
If Target.Address = ActiveCell.Address Then 
MsgBox "Macro uitvoeren" '<= Hier je actie
end if
End Sub

 

[Ginger]

Zoiets?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Value = Time
    Target.Offset(1).Select
End Sub

(code moet in de module van de betreffende worksheet komen!!!)

Groet, Leo

 

[bikkel9]

Hoi mensen

tuut tuut wat een snelheid
de oplossing van Leo werkt goed
ik heb hem zelf nog even aangepast dat zodat
ik in 2 kolommen elke cel kan gebruiken

nogmaals bedankt en een goed en gezond excel 2009

bikkel9