Registriert seit: 14.01.2019
Version(en): 365
25.02.2019, 16:44
(Dieser Beitrag wurde zuletzt bearbeitet: 25.02.2019, 16:44 von DieMarie.)
Hallo Leute,
mir ist die Blatt ein/-ausblenden Funktion abhanden gekommen.
Wenn ich eine neue Excel Arbeitsmappe öffne und mit Rechtsklick auf ein Blatt gehe öffnet sich das Dialogfenster nicht. Also es passiert überhaupt nichts.
Eigentlich habe ich nichts umgestellt. Kennt jemand diesen Fehler und kann mir helfen?
Der normale Rechtsklick in den Feldern funktioniert einwandfrei. Und mit Doppelklick kann ich die Blätter auch umbenennen. Nur der Rechtsklick funktioniert nicht.
Sowohl bei bestehenden Arbeitsmappen, als auch bei welchen, die ich neu erstelle.
Registriert seit: 17.01.2017
Version(en): 2010
Hallo
versuchs mal mit diesem Code:
Sub blatt_rechtemaustaste()
With Application.CommandBars("Ply")
.Reset
.Enabled = True
End With
End Sub
Gruss
Folgende(r) 1 Nutzer sagt Danke an gbw-99 für diesen Beitrag:1 Nutzer sagt Danke an gbw-99 für diesen Beitrag 28
• DieMarie
Registriert seit: 14.01.2019
Version(en): 365
Hat funktioniert - vielen, vielen Dank :)
Ich hatte vor kurzem eine externe Arbeitsmappe geöffnet, bei der einiges ausgeblendet und gesperrt war. ich schätze mal, dass diese Datei den Fehler verursacht hat.
Registriert seit: 14.05.2017
Version(en): MS Office Prof. Plus 2016_32-Bit
25.02.2019, 17:45
(Dieser Beitrag wurde zuletzt bearbeitet: 25.02.2019, 17:46 von hddiesel.)
Hallo,
hier noch weitere, zum ein- und ausblenden.
Die Makros haben eine Doppelfunktion, ein, oder aus, je nach Zustand vor dem Makrostart.
Zeile / Spalte, bei einen Rechtsklick auf die Zeilen-, oder Spaltenbeschriftungen Links und Oben.
Code:
'
' Rechtsklick- Kontextmenü- Blattregister EIN/AUS
'
Public Sub Kontext_Menue_Blattregister_Maus_EIN_AUS()
Application.CommandBars("Ply").Enabled = IIf(Application.CommandBars("Ply").Enabled = True, False, True)
End Sub
'
' Rechtsklick- Kontextmenü- Tabelle EIN/AUS
'
Public Sub Kontext_Menue_Tabelle_Rechte_Maus_EIN_AUS()
Application.CommandBars("Cell").Enabled = IIf(Application.CommandBars("Cell").Enabled = True, False, True)
End Sub
'
' Rechtsklick- Kontextmenü- Zeilen- Angabe EIN/AUS.
'
Public Sub Kontext_Menue_Zeile_Rechte_Maus_EIN_AUS()
Application.CommandBars("Row").Enabled = IIf(Application.CommandBars("Row").Enabled = True, False, True)
End Sub
'
' Rechtsklick- Kontextmenü- Spalten- Angabe EIN/AUS.
'
Public Sub Kontext_Menue_Spalte_Rechte_Maus_EIN_AUS()
Application.CommandBars("Column").Enabled = IIf(Application.CommandBars("Column").Enabled = True, False, True)
End Sub
'
' Alle Menüleisten Ein/Ausblenden
'
Sub RibbonEinAusblenden()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""" & ", " & IIf(einAus, "True", "False") & ")"
einAus = Not einAus
End Sub
Gruß Karl
Folgende(r) 1 Nutzer sagt Danke an hddiesel für diesen Beitrag:1 Nutzer sagt Danke an hddiesel für diesen Beitrag 28
• DieMarie