Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

With ...

With ...
10.01.2006 11:40:00
serge
Haloo Leute
wie kann ich mit With und End With mein Makro zum einschalten und auschalten der Symbolleisten gebrauchen oder oder anderst?

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

Gruss
Serge

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

Betreff
Datum
Anwender
Anzeige
AW: With ...
10.01.2006 11:42:41
u_
Hallo,
wozu with? Das brauchst doch nur, wenn du eine Objekt mehrfach ansprechen willst.
Gruß
Geist ist geil!
AW: With ...
10.01.2006 11:54:09
et999
Hi Serge,
ich glaube Du dachtest eher an Select Case:

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

Danke et999 das ist es! owT
10.01.2006 13:52:56
serge
oder so
10.01.2006 14:49:18
ingoG

Sub symbolleisten()
Dim cb As CommandBar
Hallo zusammen,
bei boolean geht auch:
For Each cb In Application.CommandBars
cb.Enabled=not cb.Enabled
End Select
Next
End Sub

Gruß Ingo
PS eine Rückmeldung wäre nett...
Anzeige
geht auch so! Danke Ingo owT.
10.01.2006 17:20:43
serge

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige