Code bij klikken Cel omzetten naar kolom

[Esducsafe]

@Helpers,
Na wat zoekwerk onderstaande Code gevonden. Als beginnend VB-er heb ik, zonder resultaat, geprobeerd om de Code om te zetten zodanig dat Code op een gehele kolom wordt toegepast.
Wie kan (wil) mij helpen?
Alvast bedankt.
Esko

Sub Button_005_BijKlikken()
    [C8].Value = IIf([C8].Value = "", Chr(252), "")
End Sub

 

[Hoornvan]

Esducsafe,

Zo iets?
Pas zonodig het bereik aan.

Sub Button_005_BijKlikken()
  For Each cl In [C1:C100]
    If cl.Value = "" Then cl.Value = "ü"
  Next
End Sub

 

[Hoornvan]

Esducsafe,

Ik heb nog eens goed naar de code gekeken en gezien dat als je er voor de 2e keer klikt het ingevoerde weer verdwijnd.
Dus heb ik de regel code die je had aangepast naar cl.

Sub Button_005_BijKlikken()
  For Each cl In [C1:C100]
    cl.Value = IIf(cl.Value = "", Chr(252), "")
  Next
End Sub

Ik hoop dat dit is wat je bedoel.

 

[Esducsafe]

Beste Wim,
Dank voor je reactie. Na nog wat zoekwerk (met dank aan het Warmebakkertje) onderstaande Code gevonden en aangepast. Mijn vraag betrof het zetten van vinkjes en dat is nu gelukt.
Met vriendelijke groet,
Esko

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
     
     With Target
         Cancel = True
        If .Value = "ü" Then
            .Value = ""
        Else
            .Value = "ü"
            .Font.Name = "Wingdings"
            .Font.Size = 14
        End If
    End With
Exit Sub
    End If
End Sub

 

[Hoornvan]

Esducsafe,

Ik kon niet uit je vraag opmaken dat het om een Vinkje plaatsen ging. (de code daarvoor had ik ook)
De rode regel geef aan dat het kolom A is. (is wat korter en de gehele kolom is het bereik)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  [COLOR="red"]If Target.Column = 1 Then[/COLOR]
    With Target
      Cancel = True
    If .Value = "ü" Then
       .Value = ""
    Else
        .Value = "ü"
        .Font.Name = "Wingdings"
        .Font.Size = 14
    End If
    End With
Exit Sub
    End If
End Sub

 

[Esducsafe]

Beste Wim,
Vandaag zag ik dat je nog een reactie had gezonden.
Bedankt.
Esko