CommandBars_OnUpdate

Forumthread: CommandBars_OnUpdate

22.08.2005 20:49:17

Fred

Hi,
VBA nicht ganz so gut!
Ich möchte das Ereignis OnUpdate mal probieren und habe dazu in ein Klassenmodul den Code eingegeben:
Option Explicit
Public WithEvents CommandBars As Office.CommandBars


Private Sub CommandBars_OnUpdate()
MsgBox "OnUpdate"
End Sub

Leider passiert gar nichts. Was fehlt oder was ist falsch?
mfg Fred

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: CommandBars_OnUpdate

22.08.2005 21:16:57

Nepumuk
AW: CommandBars_OnUpdate

22.08.2005 21:31:12

Fred

AW: CommandBars_OnUpdate

22.08.2005 21:16:57

Nepumuk

Hi Fred,
hast du auch die Warnung in der Hilfe dazu gelesen?
Beispiel:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private objCommandbars As clsCommandbar

Public Sub ein()
    Set objCommandbars = New clsCommandbar
    Set objCommandbars.prpCommandbar = Application.CommandBars
End Sub

Public Sub aus()
    Set objCommandbars = Nothing
End Sub

' **********************************************************************
' Modul: clsCommandbar Typ: Klassenmodul
' **********************************************************************

Option Explicit

Private WithEvents mobjCommandbars As CommandBars

Private Sub mobjCommandbars_OnUpdate()
    Debug.Print "OnUpdate"
End Sub

Public Property Set prpCommandbar(objCommandbars As CommandBars)
    Set mobjCommandbars = objCommandbars
End Property

Und versuch es nicht mit einer Msgbox. Du klickst dich zu Tode.
Gruß
Nepumuk
Excel & VBA Beispiele

AW: CommandBars_OnUpdate

22.08.2005 21:31:12

Fred

Hi,
so gehts, danke, obwohl ich dieses Property Set nicht verstehe.
Die Hilfe hat mich ja gerade neugierig gemacht.
mfg Fred

Forumthread: CommandBars_OnUpdate

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread