Arbeitsmappe das -blatt: Symbolleiste per MAKRO
01.06.2006 11:37:37
Michael
ich möchte die Bedienung meiner ARBEITSMAPPE durch eine Symbolleiste erleichtern. Da die Befehle und das dahinterstehende Makro genau auf das ARBEITSBLATT zugeschnitten ist, soll dann die Symbolleiste eingeblendet werden, wenn das ARBEITSBLATT aktiv ist. Auf einem anderen ARBEITSBLATT (derselben ARBEITSMAPPE) soll die Symbolleiste ausblenden und beim schließen der ARBEITSMAPPE wieder von der Auswahl:Symbolleiste löschen! Gibt es evtl. eine Möglichkeit? Wie sähe diese aus?
Mein Makro (...über Makrorecorder!):
Sub BERECHNUNG_1()
Application.CommandBars.Add(Name:="BERECHNUNG_01").Visible = True
Application.CommandBars("BERECHNUNG_01").Controls.Add Type:=msoControlButton _
, ID:=2950, Before:=1
Application.CommandBars("BERECHNUNG_01").Controls.Add Type:=msoControlButton _
, ID:=2950, Before:=2
Application.CommandBars("BERECHNUNG_01").Controls.Add Type:=msoControlButton _
, ID:=2950, Before:=3
End Sub
...ich habe diese benutzerdefinierte Symbolleiste über den Menüpunkt "Anfügen..." in die Arbeitsmappe übernommen!
Hier mein Makro (...über Makrorecorder!) zum löschen (und NICHT eingebaut, da's nicht funktioniert):
Sub TEST1()
Application.CommandBars("BERECHNUNG_01").Delete
End Sub
Vielleicht wißt ihr eine Lösung?
Vielen Dank
und schöne Grüße
Michael