• 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.

Plusteken invoegen

Status
Niet open voor verdere reacties.

Chris15

Gebruiker
Lid geworden
23 aug 2016
Berichten
556
Door dubbelklikken wil ik het plusteken "+" invoegen.

Ik heb onderstaande code die door dubbelklikken een kleur invoegt, kan dit aangepast worden?

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("D6:D2000")) Is Nothing Then Exit Sub
    Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 35, xlColorIndexNone, 35)
End Sub
 
Bv

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("D6:D2000")) Is Nothing Then Exit Sub
    Target = "+"
    Cancel = -1
End Sub
 
Dank je! Maar na het dubbelklikken wil ik direct een code achter de + zetten, is dat ook mogelijk?
 
Haal dan deze regel eruit:
Cancel = -1
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan