cel automatisch

[xbox360]

Hoi,

Klein vraagje

is het mogelijk als je op een cel klikt bijvoorbeeld A2 dat er dan een 1 komt en als je er weer op klik deze 2 wordt?

 

[edmoor]

Ja, maar alleen via VBA.

 

[lam201]

zo dus

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2")) Is Nothing Then
    Cancel = True
    Target.Value = Target.Value + 1
End If
End Sub

Dit werkt met dubbel-klik

 

[edmoor]

Of zo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "A2" Then
        Target.Value = Target.Value + 1
        Range("B2").Activate
    End If
End Sub

 

[sylvester-ponte]

en met enkel click gaat het ongeveer zo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("A2")) Is Nothing Then
    Target.Value = Target.Value + 1
    Target.Offset(, 1).Select
  End If
End Sub

 

[xbox360]

@edmoor en sylvester-ponte

Super bedankt

werkend allebei super :thumb::thumb::thumb::thumb::thumb: