Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VBA Liste aller Ereignisse gesucht

212 views
Skip to first unread message

Uwe Peter

unread,
Jun 14, 2002, 8:03:20 AM6/14/02
to
Hallo NG,
hat jemand eine Liste aller Ereignisse, die VBA kennt, wie zB
Worksheet_Activate; Worksheet_SelectionChange; Worksheet_Change usw
Uwe


Gerhard Faehling

unread,
Jun 14, 2002, 1:11:12 PM6/14/02
to
Hallo Uwe,

> 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

unread,
Jun 14, 2002, 1:58:28 PM6/14/02
to
many thanks

"Uwe Peter" <Uwe-...@arcor.de> schrieb im Newsbeitrag
news:aecm21$89k$1...@newsread1.arcor-online.net...

Dr. Eckehard Pfeifer

unread,
Jun 14, 2002, 2:35:25 PM6/14/02
to
Hallo, manches nur unter XP:

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

www.dr-e-pfeifer.de


Monika Weber

unread,
Jun 14, 2002, 2:45:44 PM6/14/02
to
Hallo Uwe, hallo Eckehard

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

Philipp von Wartburg

unread,
Jun 15, 2002, 2:44:25 PM6/15/02
to
Hallo zusammen

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

0 new messages