Private
Sub
Worksheet_BeforeDoubleClick(
ByVal
Target
As
Range, Cancel
As
Boolean
)
If
Target.Column <> 3
Or
Target.Offset(-1).Text <>
"Bestellwert"
_
Or
Target.Offset(3).Value =
""
Then
Exit
Sub
Cancel =
True
Const
c_strF
As
String
=
"=SUM(R[3]C[3]:R[BOT]C[3])"
Dim
rngU
As
Range, strF
As
String
Set
rngU = Target.Offset(1).CurrentRegion
Set
rngU = rngU.Offset(1).Resize(rngU.Rows.Count - 1)
strF = Replace(c_strF,
"BOT"
,
CStr
(rngU.Rows.Count) - 1)
Target.FormulaR1C1 = strF
End
Sub