Commandbars OnUdate Event
01.07.2005 14:55:01
Tobias
Folgender code habe ich in einem Klassenmodul:
-----------------------------------------------------
Public WithEvents objCmdBar As CommandBars
Private Sub Class_Initialize()
Set objCmdBar = Application.CommandBars
End Sub
Sub Class_Terminate()
Set objCmdBar = Nothing
End Sub
Private Sub objCmdBar_OnUpdate()
'Call Meine Prozedur
End Sub
-----------------------------------------
Wenn ich dann die Klasse anwerfe, scheint er eine Endlosschleife
zu machen und geht immer wieder in den Event _OnUpdate rein.
An meiner Prozedur, die ich darin aufrufe kann es nicht liegen.
Hat jemand eine Idee an was das liegt?
Besten Dank im Vorraus für jeglichen Input!
Gruss
Tobias
Anzeige