Ich möchte den Zellwert(A1) 2500, per Mausklick oder einem Tastendruck um 1 erhöhen.
Danke für Euere Hilfe.
Gruß
Rentner Walter
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1")) Is Nothing And IsNumeric(Target) And Target.Count = 1 _
Then
Target = Target + 1
End If
End Sub
Gruß Matthias