Application event aufrufen

21/02/2008 - 12:21 von arno | Report spam
Hallo,

wenn ich einen Doppelclick auf eine Zelle mache, möchte ich ein
Application_event auslösen. Wie mache ich das richtig?

gem. http://www.cpearson.com/excel/events.aspx
"Application Events in the thisworkbook module"

In der Arbeitsmappe habe ich folgenden Code:

Public WithEvents App As Application
Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox "hi you"
'sh.target.interior.colorindex = 3 'hàtte ich z. B. gerne
End Sub
Private Sub Workbook_Open()
Set App = Application
End Sub

In Tabelle2 habe ich folgenden Code:

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
App_SheetChange Sheets(1), sheet1.Range(Target.Address)
End Sub

Komplikation: Wenn ich auf Tabelle2!A1 klicke, dann soll Tabelle1!A1
übergeben werden (also der tats. Zellbezug und immer Tabelle1 statt
Tabelle2).

Beim Doppelklick in Tabelle2 erhalte ich den Fehler "Sub oder Funktion nicht
definiert", wobei "App_SheetChange" markiert wird.

arno
 

Lesen sie die antworten

#1 Alexander Wolff
21/02/2008 - 13:15 | Warnen spam
Beim Doppelklick in Tabelle2 erhalte ich den Fehler "Sub oder
Funktion nicht definiert", wobei "App_SheetChange" markiert wird.



Keine Ahnung, ob man eine Ereignisprozedur direkt aufrufen darf - denn damit
würden ja Argumente explizit, die beim Ereignis das System implizit vorhàlt.
Ich würde eher vermuten, dass sowohl Ereignisprozedur als auch Aufruf
derselben statt dessen eine eigene Sub aufrufen sollten.

Wahrscheinlich kann aber Stefan Onken mehr dazu sagen.
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen