Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Menue Leiste ein ausblenden

Menue Leiste ein ausblenden
29.11.2007 17:17:00
Andre´
Hallo alle zusammen,
wie kann ich Abfragen ob die erstellte Menüleiste eingeblendet ist oder nicht.
In der Arbeitsmappe steht:
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Mein Menue").Delete
End Sub



Private Sub Workbook_Open()
Menueanlegen
End Sub



Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If ActiveSheet.Name = "Tabelle1" Then
On Error Resume Next
Menueanlegen
Else
Application.CommandBars("Mein Menue").Delete
End If
End Sub



Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
On Error Resume Next
Application.CommandBars("Mein Menue").Delete
End Sub


Im Modul habe ich folgendes:
Sub Menueanlegen()
Application.ScreenUpdating = False
Dim Menue
'......
End Sub


In der Tabelle steht folgendes,


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name = "Tabelle1" Then
Menueanlegen
End If
End Sub


wo ich meiner Meinung nach abfragen müste ob ("Mein Menue") eingeblendet ist oder nicht um dann mit If ("Mein Menue") eingeblendet dann Exit Sub sonst Menueanlegen.
Wie müste ich hier vorgehen!
MFG Andre

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Menue Leiste ein ausblenden
30.11.2007 01:31:59
fcs
Hallo Andre,
du kannst die Sichtbar-Eigenschft der Menüleiste abfragen und dann entsprechende Aktionen ausführen. Da du deine Menü-Leiste ja auch löschst, muss du ggf. auch Prüfen ob deine Menüleiste die du einblenden willst überhaupt existier oder eine entsprechnden Fehlerbehandlung einbauen.
Hier am Beispiel der Steuerelement-Toolbox
Gruß
Franz

Sub Makro1()
If Application.CommandBars("Control Toolbox").Visible = False Then
Application.CommandBars("Control Toolbox").Visible = True
Else
'do nothing
End If
End Sub


Anzeige
AW: Menue Leiste ein ausblenden
30.11.2007 09:48:00
Andre´
Hallo Franz,
erstmals Danke für den Tipp.
Ich möchte gern abfragen ob die Menüleiste überhaupt existier.
Wie müste die Abfrage lauten.
Danke im Voraus!
MFG Andre

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige