ich möchte abprüfen ob ein per makro erstelltes menü bereits besteht.
ich habs mit
if exist ....versucht, weiss aber die anweisung für die CommandBars nicht.
der angezeigte Menü Name ist BMV-Martin.
kann mir bitte jemand helfen
viele grüsse
klaus
Function Exists(Liste, N As String) As Boolean
Dim Element
For Each Element In Liste
If UCase(Element.Name) = UCase(N) Then
Exists = True
Exit Function
End If
Next Element
End Function
Function Exists(Liste, N As String) As Boolean
Dim Element
For Each Element In Liste
If UCase(Element.Caption) = UCase(N) Then 'CAPTION statt Name!
Exists = True
Exit Function
End If
Next Element
End Function