PHP Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Select Case Target.Row
Case 1 To 5: [L2] = Target.Value
Case 6 To 9: [L3] = Target.Value
Case 10 To 14: [L4] = Target.Value
End Select
End If
End Sub