dubbel klikken in een cel en dan een vast gegeven in de cel zetten.

[Sytse1]

Is het mogelijk om d.m.v. het dubbelklikken b.v. een x in een cel te plaatsen

sytse

 

[popipipo]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B100")) Is Nothing Then
       If Target.Value = "" Then
           With ActiveCell
            .Value = "x"
           End With
               Target.Offset(1, 0).Select
              Else
       With Target
        ActiveCell.Value = ""
 
        End With

        Target.Offset(1, 0).Select
End If
End If
End Sub

Bij nogmaals dubbel klikken verdwijnt hij ook weer

 

[Sytse1]

Beste popipopi,
Bedankt voor je oplossing het werkt alleen een beetje raar.
Als ik voor de eerste keer in de lege cel klik gebeurd er niets in deze cel, de cursor gaat wel naar de volgende cel.
Als ik dan opnieuw dubbelklik in deze cel dan staat er wel een x en bij opnieuw dubbel klikken verdwijnt de x weer.
Waarom dit dan de eerste kleer niet gaat kan ik niet achterhalen.
Sytse

 

[popipipo]

Als ik voor de eerste keer in de lege cel klik gebeurd er niets

En wat als je voor de eerste keer dubbel klikt in die cel?

 

[Sytse1]

Dan ga ik alleen naar de volgende cel en blijft de cel waarin ik heb dubbel geklikt leeg.
Dus moet ik terug naar de cel en dan opnieuw dubbel klikken en dan staat de x er in, en gaar de cursor naar de volgende cel.

Sytse

 

[popipipo]

Bij mij doet hij dit niet.
post het bestandje anders even.

 

[Sytse1]

Het Excel bestand heb ik bijgesloten.
Dubbelklik in kolom c
groet,
Sytse

 

[popipipo]

De lege cellen van kolom C lijken leeg maar bevatten een spatie.
Je hebt de berekening ook op manueel staan.

Dit zijn de 2 storende factoren.

 

[Sytse1]

Ik gebruik de volgende code om de kolom C(waar de x inkomt) leeg te maken.
Raar dat er dan een spatie in staat.

With ActiveWorkbook.Sheets(1)
For i = 5 To 150 Step 1
If .Cells(i, "C") <> " " Then
.Cells(i, "C") = ""
End If
Next i
End With


Sytse

 

[popipipo]

CTRL H werkt ook