tekst in cel mbv macro/dubbelklik

[rikkie52]

Hallo,

een vrij simpele vraag denk ik maar heb heel het forum al afgezocht, wat uitgeprobeerd maar kom er niet uit.
Wil via een macrootje een lege cel met "vaste tekst" vullen door in deze cel te -dubbel-klikken. Wie helpt?


Groet
Erik

 

[Warme bakkertje]

Deze bv voor een enkele cel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = Range("c1").Address Then
    Target.Value = "nieuwe test"
    End If
End Sub

Of voor elke cel in een kolom

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 3 Then
    Target.Value = "nieuwe test"
    End If
End Sub

Mvg

Rudi

 

[rikkie52]

Rudi, bedankt!

Erik