Mit VBA Excel Bildschirm wieder herstellen

[Stefan87]

Hallo

Ich habe eine Frage zu einem Code, der nicht sauber ausgeführt wird, und denke das mir einer sicher sagen kann warum das so ist.

Folgenden Code habe ich für den Entwicklermodus, der mir die Formelzeile und die Registerkarten wieder einblendet.

Leider funktioniert nur die Hälfte im 1. Durchgang. Beim ersten Ausführen erscheint nur die Formelzeile. Wenn ich den Entwicklermodus nochmals ausführe, dann erscheint auch die Registerkarte mit Menüband.

Code:

Sub AktiviereEntwicklermodus()
   
With Application
    .ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",True)"
    .DisplayFormulaBar = True
    .DisplayFullScreen = False
End With
   
With ActiveWindow
    .DisplayWorkbookTabs = True
End With

End Sub

Beim Starten sieht das so aus, wie auch gewünscht:

   

Beim 1. Ausführen des Codes, sieht es so aus:

   

Und beim 2. Ausführen dann so:

   

Ich möchte es mit einem AusführBefehl so aussieht wie beim 2. Ausführen

Kann mir da jemand weiterhelfen?

[volti]

Hallo Stefan,

es gibt wohl Probleme, zumindest bei mir, mit dem Fullscreen in Verbindung mit den anderen Befehlen.
Der Ribbon wird übringens schon umgeschaltet, so dass man sich das m.E. sparen kann.

Dieses hier funktioniert jetzt bei mir immer mit einem Durchlauf....

Code:

Sub An()
  With Application
      .DisplayFullScreen = False
      ActiveWindow.DisplayWorkbookTabs = True
      If .DisplayFormulaBar = False Then .DisplayFormulaBar = True
  End With
'  If (CommandBars("Ribbon").Controls(1).Height < 100) = True Then
'      CommandBars.ExecuteMso "MinimizeRibbon"
'  End If
End Sub

Sub Aus()
  With Application
      .DisplayFullScreen = True
      ActiveWindow.DisplayWorkbookTabs = False
      If .DisplayFormulaBar = True Then .DisplayFormulaBar = False
  End With
'  If (CommandBars("Ribbon").Controls(1).Height >= 100) = True Then
'      CommandBars.ExecuteMso "MinimizeRibbon"
'  End If
End Sub

_________
viele Grüße
Karl-Heinz

[Stefan87]

Bei mir funktioniert dein Code leider nicht. Da passiert gar nichts.