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