Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige