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