Option
Explicit
Private
Sub
Worksheet_BeforeDoubleClick(
ByVal
Target
As
Range, Cancel
As
Boolean
)
If
Not
Intersect(Target, Range(
"H5:H50"
))
Is
Nothing
Then
Target = IIf(Target =
""
,
"Eilt"
,
""
)
Cancel =
True
ElseIf
Not
Intersect(Target, Range(
"I5:I50"
))
Is
Nothing
Then
Target = IIf(Target =
""
,
"Test"
,
""
)
Cancel =
True
ElseIf
Not
Intersect(Target, Range(
"E5:E50"
))
Is
Nothing
Then
Target = IIf(Target =
""
,
Date
,
""
)
End
If
End
Sub