Macro mag maar actief zijn in een aantal kolommen

[dbk]

Goedemiddag,

Is het mogelijk om onderstaande macro alleen maar in bijvoorbeeld kolom L tot en met N actief te laten zijn?
Kan iemand mij hier mee helpen?

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

ActiveCell.FormulaR1C1 = Application.UserName & " - " & Date

End Sub

Deze macro doet het volgende:
Als je in een cel 'dubbelklikt' wordt de gebruikers naam en de datum in de cel geplaatst. Op deze mannier is het herleidbaar wie en wanneer deze actie is vervuld.


Met vriendelijke groet,
DBK

 

[wiki]

if activecell.column=12or activecell.column=13 or activecell.column=14 then
'jouw code
end if

gr wim

 

[E v R]

of zo:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Columns("L:N")) Is Nothing Then Target.Value = Application.UserName & " - " & Date
End Sub

 

[dbk]

Beste E v R en Wiki,

Beide oplossingen werken perfect!

Bedankt voor de snelle hulp.


Groet,
DBK