Clickereignis per XLA abfangen

26/06/2008 - 15:31 von Steffen Trog | Report spam
Hallo Profi's,

ich habe ein Frage zu Excel 00/03, XLA und Worksheet_SelectionChange(ByVal
Target As Range)

Kann ich in einer XLA-Datei ein Stück Code hinterlegen, dass ich in jeder
Arbeitsmappe, die geöffnet wird
das Ereignis Worksheet_SelectionChange bzw. DoubleClick mitbekomme und
darauf reagieren kann ?

Hat mir jemand eine Idee ?
Danke

St. Trog
 

Lesen sie die antworten

#1 Peter Schleif
26/06/2008 - 18:38 | Warnen spam
Steffen Trog schrieb am 26.06.2008 15:31 Uhr:

Kann ich in einer XLA-Datei ein Stück Code hinterlegen, dass ich in jeder
Arbeitsmappe, die geöffnet wird
das Ereignis Worksheet_SelectionChange bzw. DoubleClick mitbekomme und
darauf reagieren kann ?



Öffne eine neue leere Mappe und schreibe den folgenden Code in den
VBA-Bereich von "DieseArbeitsmappe" bzw. "ThisWorkbook". Dann als .xla
speichern. Anschließend Excel beenden, neu starten und wie gewohnt das
AddIn aktivieren.

Peter


'/DieseArbeitsmappe/
'--
Option Explicit

Public WithEvents app As Application

Private Sub Workbook_Open()
Set app = Application
End Sub

Private Sub app_SheetBeforeDoubleClick( _
ByVal Sh As Object, _
ByVal Target As Range, _
Cancel As Boolean)
MsgBox "BeforeDoubleClick:" _
& vbCr & ActiveWorkbook.Name _
& vbCr & Sh.Name _
& vbCr & Target.Address(False, False)
End Sub

Private Sub app_SheetSelectionChange( _
ByVal Sh As Object, _
ByVal Target As Range)
MsgBox "SelectionChange:" _
& vbCr & ActiveWorkbook.Name _
& vbCr & Sh.Name _
& vbCr & Target.Address(False, False)
End Sub

Ähnliche fragen