Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If IsNumeric(Target.Offset(, 1)) Then
Target.Offset(, 1) = Target.Offset(, 1) - 1
End If
End If
End Sub
Gruß Matthias
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
With Target.Offset(0, 1)
If Not IsEmpty(.Value) And IsNumeric(.Value) Then .Value = -1 + .Value
End With
Cancel = True
End If
End Sub
Gruß Gerd