• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

vinkje vervangen door streepje

  • Onderwerp starter Onderwerp starter KeBr
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

KeBr

Gebruiker
Lid geworden
25 apr 2016
Berichten
172
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
 
Zo?
Code:
ActiveCell.Value="-"
in plaats van
Code:
ActiveCell.ClearContents
 
Of ActiveCell.Value = ChrW(8211)

Gebruik ook geen ActiveCell maar Target.
 
Afgesloten zonder melding.
Maar graag gedaan hoor.
 
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
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan