Microsoft Excel

Herbers Excel/VBA-Archiv

Menue Leiste ein ausblenden

Betrifft: Menue Leiste ein ausblenden von: Andre´
Geschrieben am: 29.11.2007 17:17:32

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

  

Betrifft: AW: Menue Leiste ein ausblenden von: fcs
Geschrieben am: 30.11.2007 01:31:59

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




  

Betrifft: AW: Menue Leiste ein ausblenden von: Andre´
Geschrieben am: 30.11.2007 09:48:09

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


  

Betrifft: hat sich erledigt von: Andre´
Geschrieben am: 30.11.2007 11:06:52

Hallo alle zusammen,
bin hier https://www.herber.de/bbs/user/48156.htm fündig geworden.

MFG Andre


 

Beiträge aus den Excel-Beispielen zum Thema "Menue Leiste ein ausblenden"