Wie abfragen, ob Menu besteht?
Peter
Untenstehender
Sub wird von verschiedenen Codes aufgerufen. Manchmal ist das Menu schon weg, dann passiert _
nichts weiteres. Nun rufe ich diesen Code aus einem
Sub auf, in dem auch "On Error Resume Next" steht und bei dem die Err.Number ausgewertet wird.
Wie kann ich untenstehenden
Sub anpassen, dass ich die Err.Number nicht zuletzt auf 0 stellen muss? Mit anderen Worten: Wie _
frage ich ab, ob das entsprechende Menu überhaupt angezeigt wird?
Danke und Gruss, Peter
Sub Menü_Löschen()
On Error Resume Next
CommandBars.ActiveMenuBar.Controls(MenueName).Delete
Err.Number = 0 'Wert muss auf NULL gesetzt werden, da Err.Number in aufrufendem
'
Sub zu Problemen führt
'hier ergibt sich Err.Number, wenn Menu nicht vorhanden
End Sub