opmaak probleem

[Statie]

Ik ben bezig met het maken een vragenlijst in Excel.

Is het mogelijk dat de invuller van deze vragenlijst als die op een cel klikt dat er dan een bv zwart bolletje verschijnt?

Zie bijlage

groet,

Statie

 

[HSV]

Met een dubbelklik.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 With Target
   .Font.Name = "Wingdings"
  '.Font.Size = 14
   .Value = "l"
 End With
Cancel = True
End Sub

 

[Statie]

Bedankt,

Kun je mij ook zeggen waar ik dit moet invoeren.

 

[HSV]

Druk Alt+F11.
Aan de linkerzijde in de projectverkenner zie je de bladnamen.
Dubbelklik op de juiste bladnaam.
In het grote witte vlak plak je de code.
Terug naar Excel via het rode kruisje.

 

[MarcelBeug]

Of rechtsklikken op het tabblad van het werkblad en kiezen voor programmacode weergeven.

Onderstaand en in de bijlage een iets andere versie.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  
    Dim rng As Range
    
    Set rng = Intersect(Target, Range("B2:E10"))
    If rng Is Nothing Then Exit Sub
    If rng.Count > 1 Then Exit Sub
    
    On Error Resume Next
    Application.ScreenUpdating = False
    Cells(rng.Row, 2).Resize(1, 4).Value = ""
    rng.Value = Chr(108)
    Application.ScreenUpdating = True
    On Error GoTo 0
    Cancel = True

End Sub

 

[HSV]

Dan zou ik het iets gemakkelijker schrijven in het voorbeeldje van Marcel.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B2:E10")) Is Nothing Then
    Cells(Target.Row, 2).Resize(1, 4).ClearContents
    Target = "l"
    Cancel = True
 End If
End Sub

 

[Statie]

bedankt.

Het is gelukt