Ribbon wird nicht angezeigt
20.05.2017 01:00:34
sigi
ich habe eine Arbeitsmappe "Menu" in der ich das Blatt z.B. "RG" einlesen lasse.
Dieses Tabellenblatt hat ein Ribbon mit den Schalter "beenden".
Nun ist es so, dass wenn ich die "RG" beende und wieder zum "Menu" zurück will
wird das Ribbon "Menu" nicht mehr angezeigt.
In dieser Arbeitsmappe:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call RefreshRibbon
objRibbon.Invalidate
End Sub
Im Modul:Sub cmd_RG_Aus(control As IRibbonControl)
ThisWorkbook.Worksheets("Menu").Visible = True
Application.DisplayAlerts = False
For Each wks In ThisWorkbook.Sheets
If wks.Name "Menu" Then wks.Delete
Next
Application.DisplayAlerts = True
With ThisWorkbook.Worksheets("Menu")
.Activate
.Cells(1, 10).Value = 0
End With
End Sub Wenn ich z.B. jetzt ein neues Tabellenblatt manuell einfüge und
dieses lösche, dann erscheint das Ribbon "Menu".
Wie kann ich das lösen?
Danke!
Gruß
Sigi