Office: Temporäre Symbolleiste mit VBA erstellen

Hallo,

ich möchte gerne in Excel für eine bestimmte Arbeitsmappe eine Symbolleiste mit VBA erstellen, welche nur für diese Arbeitsmappe gelten soll. Sie soll in allen Tabellenblättern sichtbar sein und einen Button haben, welcher beim Anklicken zu einem bestimmten Tabellenblatt springen soll.

Ziel ist es, dem Anwender die Möglichkeit zu geben, immer wieder zu einem Ausgangspunkt zu springen, ohne ständig durch alle Tabellenblätter am unteren Rand scrollen zu müssen.

Wenn der Anwender die Arbeitsmappe schliesst, soll auch die Symbolleiste verschwinden.

Ich habe einiges probiert...

Mit "Anbinden" aus dem Menü "Anpassen" bleibt die Symbolleiste auch in der normalen Excel-Anwendung vorhanden.

Irgendwie funktioniert das mit der CommandBars.Add-Methode bei mir nicht. Der Compiler sagt immer, es gäbe einen Laufzeitfehler (91 - "Objektvariable nicht definiert oder fehlende With-Anweisung" o.ä.)...

Bei Private Sub Workbook_Open() habe ich folgendes eingegeben:

Code:

Damit wollte ich eine neue temporäre Leiste anlegen und dann über CommandBars("neueSymbolleiste").Controls.Add(Type:=msoControlButton) einen neuen Button hinzufügen, welcher dann onAction ein Makro ausführt, welches zu dem besagten Tabellenblatt springt... klappt aber nicht...

Kann mir jemand erklären, wo mein Fehler liegt und wie es besser geht?

Danke!

Gruß
Marco

:)

 

Hallo Marco

Du willst nun bloß eine Schaltfläche, mei Beispiel hat jetzt 15. Die Action hinter OnAction ist das Makro das in einem Modul steht.

Code:

Code eingefügt mit:

 

Hallo Hajo,

vielen Dank, klappt klasse. Aber woher ich wissen soll, dass man da Fehler abfangen muss, ist mir schleierhaft. Naja, bin ja da noch Laie... ;-)

Eine Frage habe ich noch:

Wie bekomme ich es hin, dass die neu kreierte Symbolleiste vertikal anstatt horizontal erscheint? Wie ich sie positionieren kann, habe ich schon festgestellt, aber die Schaltflächen nebeneinander nehmen zu viel Platz weg. Ich würde sie gerne untereinander haben, damit ich die Leiste am rechten Rand positionieren kann, wo sie nicht so stört...

Vielen Dank im voraus und schlnes WE!

Gruß
Marco

 

Hallo,

das kann man beim Erstellen des CommandBars in der Add-Methode mitgeben (im Beispiel: Position:=msoBarTop in Position:=msoBarRight ändern).
Sieh Dir mal die Office-VBA Hilfe dazu an.

Gruß

Alex

 

Hallo Alex

wi bekomme ich jetzt den Text auf der Schaltfläche noch waagerecht hin??

Gruß Hajo

 

Hallo,

dafür stelltst Du einen andere Konstante beim Stil des CommandBarButtons ein:

.Style = msoButtonCaption

ändern in:

.Style=msoButtonWrapCaption

Gruß

Alex

 

Hallo Alex

Danke für die Information. Ich habe meine Symbolleiste mal vor Jahren unter Anleitung von einem Buch erstellt. Seit dem habe ich Sie nur in der geposteten Variante verwendet.

Symbollleisten sind nicht mein Hauptgebiet.

Man lernt bei Excel nie aus.

Noch ein schönes Wochenende

Gruß Hajo

 

Hallo,

mit msoBarRight legt man die Symbolleiste ja nur in den rechten Bereich, sie ist dann nicht mehr "floating".

Wenn man sie sowohl schwebend als auch die Buttons untereinander statt nebeneinander haben will, muss man am Ende der Button-Definition die Breite der Symbolleiste mittels

namederleiste.width = 1

auf die Minimalgröße beschränken... dann erscheint sie vertikal ausgerichtet.

Den Tipp habe ich unter www.herber.de/forum/archiv/192to196/t192989.htm gefunden.

Gruß
Marco

 

Hallo,

ich habe da noch ein kleines Problemchen mit den Symbolleisten.

In einer Vorlage wird bei mir eine Symbolleiste erstellt. Wenn ich aber mehrere Vorlagen bzw. damit kreierte XLS-Dateien gleichzeitig öffne, bekomme ich erst einmal einen Laufzeitfehler, was wohl daran liegt, dass die Symbolleisten den gleichen Namen haben bzw. sich auf das selbe Objekt beziehen, nämlich cb oder CommandBars("Blätter").

Ansonsten funktioniert das erstmal ganz prima. Die Symbolleisten funktionieren - je nach Datei - getrennt, wenn ich also wechsel, dann werden die "Befehle" auf die andere Datei angewendet.

Mein Problem ist nur, dass die Symbolleiste verschwindet, sobald ich eine der Dateien schliesse - was ja logisch ist, denn ich habe sie auf temporary gesetzt.

Bekomme ich es irgendwie hin, dass Excel prüft, ob noch eine andere Datei die Symbolleiste benutzt, so dass sie erst geschlossen wird, wenn die letzte Datei, die sie nutzt, geschlossen wird???

Erst mal vielen Dank im voraus.

Gruß
Marco

 

Hallo Marc

siehe Dir nochmal meinen Original Code an, da war das Problem gelöst mit dem öffnen.

Gruß Hajo