klik i en celle og den skal skive tælle 1 op

Man kan ikke styre 1 venstreklik, men dobbeltklik og højreklik.

Her er et eksempel der virker på A1

koden skal i arkets modul

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Target = Target + 1
Cancel = True
End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Target = Target - 1
Cancel = True
End If
End Sub

Tak skal du have kabbak... men jeg ved ikke hvordan jeg sætter det ind i arkets modul.
Jeg har været inde i noget makro, men at få det til at virke, det ville den ikke.
Kan du lave en beskivelse over hvordan??

Højreklik på arkfanen, i det ark den skal virke i, vælg vis programkode, der skal den være.

Hvor er det sejt....tusinde tak for hjælpen.
Smid et svar ind og du får point
MVH
AC

et svar ;-))