Einen beliebigen Tab aktivieren über VBA

[jovicic]

Hallo liebe Leute!

Ich stecke gerade fest mit meinen Projekt, wo ich den "Custom Tab", den ich über UI Editor erstellt habe, nach Datei Eröffnung aktivieren möchte.
So lautet mein XML:

Code:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RibbonOnLoad">
<ribbon>
<tabs>
<tab id="customTab" label="Fieger" insertAfterMso="TabHome">
<group id="customGroup" label="CAD">
<button id="customButton3" label="Zeichnen" size="large" onAction="runsub" image="icon" />
</group>
<group id="grp_ribbon_oeffnen" label="EN 10077-1">
<button id="customButton4" label="Wärmekoeffizient" size="large" onAction="runsub2" image="uwert" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>

Hier kann man sehen dass der neue Tab "Fieger" heißt und den möchte ich nach öffnen Aktiviren.

Hab ein bisschen Gegooglet und hab diesen VBA Code gefunden:

Code:

Option Explicit
Public ribMeinRibbon As IRibbonUI
Sub RibbonOnLoad(ribbon As IRibbonUI)
Set ribMeinRibbon = ribbon
ribMeinRibbon.ActivateTab "Fieger"
   End Sub

Wenn ich einfüge, passiert halt nix

Kann mir jemand von euch helfen bitte???

Freue mich über Zuschriften!
Alex

[Käpt'n Blaubär]

Hallo,

Option Explicit

hier fehlt mindestens eine Code-Zeile

Public ribMeinRibbon As IRibbonUI

[jovicic]

Hallo

Kannst du mir sagen was fehlt?

Was muss ich schreiben?

Lg

Alex

[Käpt'n Blaubär]

Hallo,

ich habe ja geschrieben, es fehlt mindestens eine Codezeile.

Da in diesem Fall sozusagen ausgerechnet die Überschrift des Makros fehlt, es unten aber mit End Sub endet,
ist schon mal klar, es handelt sich um ein Makro, nicht um eine Funktion oder sowas.

Damit ist dann für mich allerdings auch schon das Ende der Fahnenstange erreicht, denn durch
die fehlende Überschrift kann ich nicht einmal feststellen, wo das Ding letztendlich abgelegt
werden muß, damit es auch vernünftig arbeiten kann.
Vielleicht gehst Du noch mal nach Google und schaust nach, ob es das Teil auch in heile gibt.

[Kuwer]

Hi Peter,

also bei mir fehlt keine Zeile. In der 3. Zeile steht

Sub RibbonOnLoad(ribbon As IRibbonUI)

Gruß Uwe

[schauan]

Hallöchen,

das Sub alleine bewirkt auch nix. Irgendwer oder irgendwas muss es auch starten.

Was da fehlt, ist z.B. ein Workbook_Open - Makro, welches beim Öfnen der Datei das Sub aufruft und den ribbon übergibt. Falls Du das hast, ist dort eventuell was nicht in Ordnung. Hast Du doch, oder?

[jovicic]

Hallo

Also, ich habe mein VBA Code in einen Modul eingefügt 

Kannst du mir verraten was soll ich genau in Woorksheet machen? 
Wie soll der VBA lauten?

Lg
Alex

[schauan]

Hallo ALex,

sorry, war ein Denkfehler. Das Makro wird beim Laden des Ribbons aufgerufen
Du könntest ja mal eine MsgBox in dem Makro ausgeben, damit man sieht, ob das Makro überhaupt durchlaufen wird.

[Käpt'n Blaubär]

Hallo,

Kannst du mir verraten was soll ich genau in Woorksheet machen? 
Wie soll der VBA lauten?

Du liest nicht, was man Dir schreibt, oder?

das Sub alleine bewirkt auch nix. Irgendwer oder irgendwas muss es auch starten.

Was da fehlt, ist z.B. ein Workbook_Open - Makro, welches beim Öfnen der Datei das Sub aufruft und den ribbon übergibt. Falls Du das hast, ist dort eventuell was nicht in Ordnung. Hast Du doch, oder?

Da steht zum Beispiel nichts von Worksheet.

Und Fragen beantworten ist auch nicht so richtig Dein Ding.

Also, ja, nach der Überschrift des vorhandenen Makros gehört es ziemlich sicher in ein "Allgemeines Modul". In sofern hast Du das auch
an der richtigen Stelle eingefügt.

Aber es fehlt ein Code, der das Makro in's Rennen schickt und da das Makro sich um Ribbons kümmern soll, ist es sehr wahrscheinlich,
daß dies aus dem Klassenmodul "DieseArbeitsmappe" heraus zu geschehen hat. Und dieser Teil fehlt eben. Ich bat Dich ja vorher schon
mal, daß Du noch mal nach Google rennst, um zu sehen, ob der Beginncode da auch irgendwo abgelegt wurde. Daß das so ist, ist auch
sehr wahrscheinlich, denn warum sonst hätte der Autor seinen Codeschnipsel veröffentlichen sollen.

André hatte auch nachgefragt, ob Du im Besitz dieses Codes bist.

Keine Antwort ist zwar auch eine Antwort, aber sie bringt weder Dir noch den Helfern die gewünschte Lösung.

[Käpt'n Blaubär]

Hallo,

in Deinem Eröffnungsposting in diesen Thread hast Du gefragt

Hier kann man sehen dass der neue Tab "Fieger" heißt und den möchte ich nach öffnen Aktiviren.

Das wäre zum Beispiel ein Fall für "DieseArbeitsmappe" und es wäre ein Workbook_Open-Makro,
mit dem es beim Öffnen der Datei automatisch angeschubst werden müßte.