Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige