Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CommandeBar

Forumthread: CommandeBar

CommandeBar
08.02.2008 11:25:41
serge
Hallo leute mit folgendem Makro kann ich die Menu- sowie Symbolleisten Aus und einblenden:

Sub symbole()
' Tastenkombination: Strg+l
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = Not cb.EnabledNext
End Sub


Ich möchte jetzt aber das nicht reversibel haben, sonder mit einem Makro ausblenden und mit einem zweiten einblenden!


Sub symboleaus()
' Tastenkombination: Strg+l
Dim cb As CommandBar
ausblenden
End Sub




Sub symboleein()
' Tastenkombination: Strg+m
Dim cb As CommandBar
einblenden
End Sub


Ich komme nicht drauf!
Wir hilft mir
danke
Serge

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandeBar
08.02.2008 11:38:00
Uwe
Hi Serge,
so kannst Du das mit EINEM Makro machen (wenn ein dann aus, wenn aus dann ein):

Sub symbolleisten()
Dim cb As CommandBar
For Each cb In Application.CommandBars
Select Case cb.Enabled
Case Is = True
cb.Enabled = False
Case Is = False
cb.Enabled = True
End Select
Next
End Sub


Gruß
Uwe
(:o)

Anzeige
AW: CommandeBar
08.02.2008 16:45:54
serge
Hallo Uwe
danke für deine Antwort, aber das "wenn ein dann aus, wenn aus dann ein" das hatte ich ja schon!
Nue etwas kürzer:

Sub symbole()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = Not cb.Enabled
Next
End Sub


Ransi hat die richtige Lösung für mich.
Danke trotzdem!
Serge

Anzeige
AW: CommandeBar
11.02.2008 15:37:48
Uwe
Hi Serge,
sorry da hatte ich gepennt (:-(
Gruß
Uwe
(:o)

AW: CommandeBar
08.02.2008 11:40:00
ransi
HAllo Serge
Dann einfach so:
Option Explicit
Dim cb As CommandBar

Sub ein()
For Each cb In Application.CommandBars
    cb.Enabled = True
Next
End Sub

Sub aus()
For Each cb In Application.CommandBars
    cb.Enabled = False
Next
End Sub

Wenn dir dein Excel aber abschmiert während die CommandBars ausgeblendet sind, hast du ein massives Problem.
ransi

Anzeige
Danke: CommandeBar
08.02.2008 16:41:00
serge
Hallo Ransi
Genau wie ich es mir vorgestellt habe!
Ich habe mein Makro gedreht und gewendet, irgendwie stand ich mir auf dem Kopf oder auf dem Schwanz!
Danke Serge
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige