Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige