Verhogen met 1

[verluc]

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 And Target.Count = 1 And Target <> "" Then
Target.Offset(, 2) = Target.Offset(, 7) + 1
Cancel = True
End if
End Sub

Vraagje: waarom verhoogt kolom 7 niet met 1 wanneer er reeds het cijfer 1
vermeld staat ?

 

[popipipo]

Target.Offset(, 7) veranderen in Target.Offset(, 2) helpt misschien.

 

[verluc]

Zeer bedankt, werkt perfect: probleem opgelost