RightClick UND SelectionChange zusammen
born
ich möchte in einem Bereich meinter Tabelle das Rightclick-Ereignis aktivieren, damit
etwas passiert, wenn die rechte Maustaste gedrückt wird und ein SelectionChange-Ereignis,
damit ich etwas mit der Linken Maustaste starten kann.
Weil aber die Rechte Maustaste gleichzeitig ein SelectionChange ist, wird dort mein Ereignis immer
ZWEIMAL gestartet.
Wie kann ich beim Right Click verhindern, daß SelectionChange aktiviert wird?
Oder gibt es noch eine einfachere, besser Möglichkeit, das alles zu aktivieren?
Gruß und Dank,
Born
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Bereich As Range
Set Bereich = Range("AG9:BU1000")
Cancel = True
If Intersect(Target, Bereich) Is Nothing Then
Exit Sub
Else
EnterZahl
Target.Interior.ColorIndex = 3
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("AG9:BU1000")
If Intersect(Target, Bereich) Is Nothing Then
Exit Sub
Else
EnterZahl
Target.Interior.ColorIndex = 7
End If
End Sub