With ...

Forumthread: With ...

With ...

10.01.2006 12: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

AW: With ...

10.01.2006 12:42:41

u_
AW: With ...

10.01.2006 12:54:09

et999
Danke et999 das ist es! owT

10.01.2006 14:52:56

serge
oder so

10.01.2006 15:49:18

ingoG
geht auch so! Danke Ingo owT.

10.01.2006 18:20:43

serge

AW: With ...

10.01.2006 12:42:41

Hallo,
wozu with? Das brauchst doch nur, wenn du eine Objekt mehrfach ansprechen willst.
Gruß
Geist ist geil!

AW: With ...

10.01.2006 12: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 14:52:56

serge

oder so

10.01.2006 15: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...

geht auch so! Danke Ingo owT.

10.01.2006 18:20:43

serge

Forumthread: With ...

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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread