Klik in cel tellen vba

[Hylas]

Hallo leden,
ik heb een aardige tekst in vba staan maar soms moet ik dezelfde cel aanklikken en dan wil ik eigenlijk dat hij de registratie bijhoud hoe vaak ik de cel aangeklikt heb
is dit mogelijk in het onderstaand vba tekst of moet ik dan een andere Privat Sub maken

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
    Cells(Target.Row, "F") = Now
    Cells(Target.Row, "G") = " Is Gescand"
    Cells(Target.Row, "H") = Application.UserName
    End If
End Sub

 

[JEC.]

Je kunt een tellertje maken in je werkblad in bvb een tabel. Iedere keer als je op een specifieke cel klikt, laat je de teller met 1 verhogen.

 

[Hylas]

Thanks

En tellertje bovenin werkt niet zo ik wil het op de regel hebben hoe vaak de cel is aangeklikt heb heel veel regels staan

 

[SjonR]

kan je een voorbeeldbestand plaatsten? Dan komt dat vast in orde.

 

[Hylas]

Voorbeeld bestand

hierbij een voorbeeld bestand

 

[JEC.]

Wil je de telling in kolom K hebben?
Is alleen het selecteren niet een beetje riscant? Ik zou eerder gaan voor een dubbelklik.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
       Cells(Target.Row, 6).Resize(, 3) = Array(Now, " Is Gescand", Application.UserName)
       Cells(Target.Row, 11) = Cells(Target.Row, 11) + 1
    End If
End Sub

Na dubbelklik

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 1 Then
    Target.Offset(, 5).Resize(, 3) = Array(Now, " Is Gescand", Application.UserName)
    Target.Offset(, 10) = Target.Offset(, 10) + 1
    Cancel = True
  End If
End Sub

 

[Hylas]

Beste Jan,

Dit is wat ik zocht, heel erg bedankt man

 

[JEC.]

Alstu, maar ik heet geen Jan:d