vinkje vervangen door streepje

[KeBr]

Ik heb onderstaande VBA code. In plaats van dat de cel wordt leeg gemaakt bij de 2e dubbelklik zou ik een streepje willen hebben. is dit mogelijk. Heb al diverse dingen geprobeerd, bij ActiveCell.ClearContents. hoe kan dit opgelost worden?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C8:L18")) Is Nothing Then
Application.EnableEvents = False
If ActiveCell.Value = ChrW(&H2713) Then
ActiveCell.ClearContents
Else
ActiveCell.Value = ChrW(&H2713)
End If
Cancel = True
End If
Application.EnableEvents = True
End Sub

 

[gast0660]

Zo?

ActiveCell.Value="-"

in plaats van

ActiveCell.ClearContents

 

[edmoor]

Of ActiveCell.Value = ChrW(8211)

Gebruik ook geen ActiveCell maar Target.

 

[edmoor]

Afgesloten zonder melding.
Maar graag gedaan hoor.

 

[AD1957]

Tja, beetje fatsoen is soms ver te zoeken.

 

[KeBr]

beste Edmoor,

Dat deze vraag van mij al gereed gemeld was had ik zelf niet door. Excuses hiervoor.

Nogmaals bedankt voor de geboden oplossingen, ook door gast0660. Ik heb deze net uitgeprobeerd en beide werken.
Ook heb ik overal ActiveCell veranderd in Target

 

[edmoor]

:thumb: