Command Bar

Forumthread: Command Bar

Command Bar

07.11.2005 23:31:57

klaus

hallo und schönen guten abend,
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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Command Bar

08.11.2005 08:23:16

Matthias
AW: Command Bar

08.11.2005 13:54:43

klaus
AW: Command Bar

08.11.2005 19:50:34

Matthias
AW: Command Bar

09.11.2005 08:59:16

klaus

AW: Command Bar

08.11.2005 08:23:16

Matthias

Hallo 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

If Exists(Application.CommandBars, "BMV-Martin") Then ...
du kannst die Funktion auch für andere Listen verwenden:
z.B. If Exists(Workbooks,"Mappe1")
Gruß Matthias

AW: Command Bar

08.11.2005 13:54:43

klaus

hallo matthias,
vielen dank für dein posting. ich habs ausprobiert, leider findet die function das menü nicht, obwohl ich es ja in meiner menüleiste in excel sehe. vielleicht liegts daran dass ich es schon per folgendem vba code erstelle:
i = Application.CommandBars(1).Controls.Count
i_Hilfe = Application.CommandBars(1).Controls(i).Index
Set MenüNeu = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, before:=i_Hilfe)
MenüNeu.Caption = "BMV-Martin"
Set Mb = MenüNeu.Controls.Add(Type:=msoControlButton)
With Mb
.Caption = "Geräte Manager"
.Style = msoButtonCaption
.OnAction = "Geräte_Manager"
.State = msoButtonUp
End With
Set Mb = MenüNeu.Controls.Add(Type:=msoControlButton)
With Mb
.Caption = "Kunden Manager"
.Style = msoButtonCaption
.OnAction = "Kunden_Manager"
.State = msoButtonUp
End With
Set Mb = MenüNeu.Controls.Add _
(Type:=msoControlButton)
With Mb
.Caption = "Kraftstoff Manager"
.Style = msoButtonIconAndCaption
.OnAction = "Kraftstoff_Manager"
.State = msoButtonUp
End With
Set Mb = MenüNeu.Controls.Add _
(Type:=msoControlButton)
With Mb
.Caption = "Rechnungsnummer ändern"
.Style = msoButtonIconAndCaption
.OnAction = "ReNrAendern"
.State = msoButtonUp
End With
Set Mb = MenüNeu.Controls.Add _
(Type:=msoControlButton)
With Mb
.Caption = "Rechnungsjahr ändern"
.Style = msoButtonIconAndCaption
.OnAction = "ReJahrAendern"
.State = msoButtonUp
End With
Set Mb = MenüNeu.Controls.Add _
(Type:=msoControlButton)
With Mb
.Caption = "Rechnung speichern"
.Style = msoButtonIconAndCaption
.OnAction = "ReSpeichern"
.State = msoButtonUp
End With
oder mach ich was anderes falsch.
einstweilen vielen dank
viele grüsse
klaus

AW: Command Bar

08.11.2005 19:50:34

Matthias

Hi Klaus,
ach so, ein Unrtmenü der Worksheet Menu Bar:


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

If Exists(Application.CommandBars(1).Controls, "BMV-Martin") Then ...
Gruß Matthias

AW: Command Bar

09.11.2005 08:59:16

klaus

hallo matthias,
vielen herzlichen dank für deine hilfe. jetzt klappts:-))
viele grüsse
klaus

Beliebteste Forumthreads (12 Monate)

Forumthread: Command Bar

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread