> hat jemand eine Liste aller Ereignisse, die VBA kennt, wie zB
> Worksheet_Activate; Worksheet_SelectionChange; Worksheet_Change usw
such mal in der Hilfe nach Worksheet und geh dann zum Worksheet-Objekt.
Dort kannst Du oben dann die Ereignisse anzeigen lassen.
Interessant vor allem beim Workbook-Objekt und dem Worksheet-Objekt.
Aber auch diverse andere Objekte haben Ereignisse in dieser Art.
Ciao
Gerhard
"Uwe Peter" <Uwe-...@arcor.de> schrieb im Newsbeitrag
news:aecm21$89k$1...@newsread1.arcor-online.net...
Public WithEvents xlApp As Application
xlApp_NewWorkbook(ByVal Wb As Workbook)
xlApp_SheetActivate(ByVal Sh As Object)
xlApp_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range,
Cancel As Boolean)
xlApp_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range,
Cancel As Boolean)
xlApp_SheetCalculate(ByVal Sh As Object)
xlApp_SheetChange(ByVal Sh As Object, ByVal Target As Range)
xlApp_SheetDeactivate(ByVal Sh As Object)
xlApp_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
xlApp_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
xlApp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
xlApp_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
xlApp_WindowDeactivate(ByVal Wb As Workbook, ByVal Wn As Window)
xlApp_WindowResize(ByVal Wb As Workbook, ByVal Wn As Window)
xlApp_WorkbookActivate(ByVal Wb As Workbook)
xlApp_WorkbookAddinInstall(ByVal Wb As Workbook)
xlApp_WorkbookAddinUninstall(ByVal Wb As Workbook)
xlApp_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
xlApp_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
xlApp_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean,
Cancel As Boolean)
xlApp_WorkbookDeactivate(ByVal Wb As Workbook)
xlApp_WorkbookNewSheet(ByVal Wb As Workbook, ByVal Sh As Object)
xlApp_WorkbookOpen(ByVal Wb As Workbook)
xlApp_WorkbookPivotTableCloseConnection(ByVal Wb As Workbook, ByVal Target
As PivotTable)
xlApp_WorkbookPivotTableOpenConnection(ByVal Wb As Workbook, ByVal Target As
PivotTable)
Public WithEvents xlWb As Workbook - Workbook
xlWb_Activate()
xlWb_AddinInstall()
xlWb_AddinUninstall()
xlWb_BeforeClose(Cancel As Boolean)
xlWb_BeforePrint(Cancel As Boolean)
xlWb_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
xlWb_Deactivate()
xlWb_NewSheet(ByVal Sh As Object)
xlWb_Open()
xlWb_PivotTableCloseConnection(ByVal Target As PivotTable)
xlWb_PivotTableOpenConnection(ByVal Target As PivotTable)
xlWb_SheetActivate(ByVal Sh As Object)
xlWb_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range,
Cancel As Boolean)
xlWb_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel
As Boolean)
xlWb_SheetCalculate(ByVal Sh As Object)
xlWb_SheetChange(ByVal Sh As Object, ByVal Target As Range)
xlWb_SheetDeactivate(ByVal Sh As Object)
xlWb_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
xlWb_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
xlWb_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
xlWb_WindowActivate(ByVal Wn As Window)
xlWb_WindowDeactivate(ByVal Wn As Window)
xlWb_WindowResize(ByVal Wn As Window)
Public WithEvents xlSheet As Worksheet - Worksheet
xlSheet_Activate()
xlSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
xlSheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
xlSheet_Calculate()
xlSheet_Change(ByVal Target As Range)
xlSheet_Deactivate()
xlSheet_FollowHyperlink(ByVal Target As Hyperlink)
xlSheet_PivotTableUpdate(ByVal Target As PivotTable)
xlSheet_SelectionChange(ByVal Target As Range)
Public WithEvents xlChart As Chart
xlChart_Activate()
xlChart_BeforeDoubleClick(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal
Arg2 As Long, Cancel As Boolean)
xlChart_BeforeRightClick(Cancel As Boolean)
xlChart_Calculate()
xlChart_Deactivate()
xlChart_DragOver()
xlChart_DragPlot()
xlChart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As
Long, ByVal y As Long)
xlChart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As
Long, ByVal y As Long)
xlChart_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long,
ByVal y As Long)
xlChart_Resize()
xlChart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As
Long)
xlChart_SeriesChange(ByVal SeriesIndex As Long, ByVal PointIndex As Long)
Public WithEvents objOLE As OLEObject
objOLE_GotFocus()
objOLE_LostFocus()
Public WithEvents xlQT As QueryTable
xlQT_AfterRefresh(ByVal Success As Boolean)
xlQT_BeforeRefresh(Cancel As Boolean)
--
Mit freundlichen Grüßen
Eckehard Pfeifer
Ergänzend dazu findest du vom Eckehard sehr interessante und
lehrreiche Artikel unter:
http://www.vba-magazin.de/articles/before/ereignisse1/ereignisse1.htm
--
Ich hoffe, dass dir das weiterhilft.
Es liebs Grüessli aus der Schweiz
Monika Weber
------------------------------------------
Microsoft MVP für Excel
http://www.jumper.ch
http://www.jumper.ch/CODEBOOK.htm
Eine ebenfalls sehr gute Website mit bemerkenswert
detaillierten Beschreibungen findet man unter:
http://www.cpearson.com/excel/events.htm
http://www.cpearson.com/excel/AppEvent.htm
Eine Beispiel-Arbeitsmappe demonstriert sämtliche
Ereignisse:
http://www.cpearson.com/Zips/APPEVENT.ZIP
Gruss
Philipp
>-----Originalnachricht-----
>> xlSÍ{ wÀ | dè -"¼Ö,Ì ìü heet_BeforeRightClick(ByVal