BeforeDoubleClick
06.03.2004 21:22:45
Ernst Dunkel
Habe ein Problem mit den beiden unten stehenden Code.
Code 1 funktioniert
Code 2 funktioniert nicht, wenn ich einen Doppelklick auf A1 bis A10 mache.
Kann mir jemand bei meinem Problem helfen?
Mit freundlichen Grüßen
Ernst Dunkel
Option Explicit
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