Wie Du selbst schon sagst ist Excel 97 inzwischen etwas antiquiert. Deshalb bin ich mir nicht sicher, ob es da schon die Ereignisse
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) und
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
gegeben hat. Wenn ja, versuchs mal damit. Also in der Entwicklungsumgebung im Klassenmodul z.B. "Tabelle1" oder eben des Arbeitsblattes wo das Ereignis ausgelöst werden soll, eine Prozedur z.B.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = $B$5 Then 'Wirkt nur bei Rechtsklick in z.B. B5, kann jede andere Zelle sein. Wichtig: Absolute Adresse mir $-Zeichen
Modul1.DeineProzedur 'Hier wird Deine Prozedur aufgerufen und ausgeführt; Du mußt natürlich den Modul- und Prozedurnamen anpassen
Else
Cancel = True 'HIer passiert gar nichts, weil die Zelle nicht B5 ist
Exit Sub
End If
End Sub
Eine identische Prozedur kannst Du, wenn Du willst, auch für Doppelklick schreiben, wenn Du das vorziehst.
Dann schau mal, ob das besser klappt als mit Tastenkombination.
Severus
|