Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

CommandBars_OnUpdate

Forumthread: CommandBars_OnUpdate

CommandBars_OnUpdate
22.08.2005 18: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: CommandBars_OnUpdate
22.08.2005 19: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
Anzeige
AW: CommandBars_OnUpdate
22.08.2005 19:31:12
Fred
Hi,
so gehts, danke, obwohl ich dieses Property Set nicht verstehe.
Die Hilfe hat mich ja gerade neugierig gemacht.
mfg Fred
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige