Iets in cel plaatsen/verwijderen bij aanklikken

[Marco9999]

Hallo,

Ik heb een blad waar een heleboel vakjes ingevuld moeten worden dmv aanklikken. Dit doe ik nu met onderstaande code;

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column > 107 And Target.Column < 133 Then
    Target = "X"
    End If
    End Sub

Nu komt het natuurlijk wel eens voor dat een cel verkeerd wordt aangeklikt en de waarde weer verwijderd moet worden.
Dat kan uiteraard met je Del-knop, maar is het ook mogelijk om de waarde in de cel te verwijderen door de cel nog een keer aan te klikken?

Alvast bedankt!

 

[Cobbe]

Test deze eens:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("BB1:BZ100")) Is Nothing Then
If ActiveCell = "x" Then ActiveCell = "" Else ActiveCell = "x"
End If
End Sub

Wel het bereik nog aanpassen

 

[Marco9999]

Werkt perfect, bedankt!!

 

[Marco9999]

Nou, ik heb nog een vraag.
Ik moet op een blad in een heleboel cellen Ja's en Nee's invullen. Is het mogelijk door 1 keer op de lege cel te klikken, automatisch 'Ja' invullen, na nog een keer aanklikken 'Nee' invullen en na nog een keer de cel weer blanco maken?

 

[Cobbe]

Wellicht lukt dat met deze:

Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B100")) Is Nothing Then
     Application.EnableEvents = False
        If ActiveCell = "" Then Waarde = "Ja"
        If ActiveCell = "Ja" Then Waarde = "Neen"
        If ActiveCell = "Neen" Then Waarde = ""
    End If
    ActiveCell = Waarde
     Application.EnableEvents = True
End Sub

 

[snb]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Columns(3)) Is Nothing Then Target = IIf(Target = "", "ja", IIf(Target = "ja", "nee", ""))
End Sub

 

[Marco9999]

Opgelost, dank jullie wel!