BeforeDoubleClick

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 2 And Target.Row > 0 And Target.Row < 10 Then      'ab Zeile 1 bis 10 der Spalte 2
If Target = "8" Then Target = "N"  ' bei Eingabe von 8 wird N eingetragen
If Target = "2" Then Target = "S"
If Target = "4" Then Target = "W"
If Target = "6" Then Target = "E"
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [a1:a10]) Is Nothing Then                                         'Mit Doppelclick auf A1 bis A10
Range(Cells(Target.Row, 2), Cells(Target.Row, 13)).ClearContents        'Löscht die Zellen 2 bis 13
End If
Cancel = True
End Sub