Ribbon Enable/Disable

Hallo Miteinander,
ich beschäftige mich gerade mit der Ribbon Programmierung unter Excel 2013. Das was ich machen will, funktioniert auch sehr gut, aber ich habe eine Frage zur Vereinfachung eines Menüeintrags.
Von der Seite http://www.office-loesung.de/ftopic403764_0_0_asc.php habe ich mir ein Programmierbespiel heruntergeladen und an meine Bedürnisse angepasst (s.u.)

label="Monatsauswahl" >

Leider muss ich für jeden Button einen eigenen "getEnabled" Teil schreiben, obwohl Sie sich nur im Blattnamen unterscheiden. Bei zwanzig verschiedenen Buttons ist dies etwas mühsam (m.M. auch unnötig) aber mir fällt keine Lösung ein um diese Buttons für jedes Blatt zu enablen bzw. disablen. Dies habe ich in der Beispielmappe dargestellt (https://www.herber.de/bbs/user/115254.xlsm).
Bei Ribbons bin ich absoluter Neuling, klappt aber alles soweit. Kann mir jemand einen hilfreichen Tipp geben?
Mfg
Christoph

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"> <ribbon> <tabs> <tab id="tab0" label="MeinTest"> <group id="grp0" label="MeinTest"> <button id="btn0" label="MeinTest1" imageMso="AutoDial" size="large" _ onAction="onAction_Button" getEnabled="getEnabled_Button" tag="Tabelle1" /> <button id="btn1" label="MeinTest2" imageMso="AutoDial" size="large" _ onAction="onAction_Button" getEnabled="getEnabled_Button" tag="Tabelle2" /> </group> </tab> </tabs> </ribbon> </customUI> VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Public Sub getEnabled_Button(control As IRibbonControl, ByVal returnValue) If ActiveSheet.Name = control.Tag Then returnValue = True End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Nachtrag:
Damit das alles funktioniert muss natürlich das onLoad-Ereignis eingesetzt werden.
XML-Code:

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="onLoad_98">
  <ribbon>
    <tabs>
      <tab id="tab0" label="MeinTest">
        <group id="grp0" label="MeinTest">
          <button id="btn0" label="MeinTest1" imageMso="AutoDial" size="large" _
                  onAction="onAction_Button" getEnabled="getEnabled_Button"
                  tag="Tabelle1" />
          <button id="btn1" label="MeinTest2" imageMso="AutoDial" size="large" _
                  onAction="onAction_Button" getEnabled="getEnabled_Button"
                  tag="Tabelle2" />
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

In "DieseArbeitsmappe":

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 If Not objRibbon Is Nothing Then objRibbon.Invalidate
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

In ein allgemeines Modul:

Option Private Module
Option Explicit

Public objRibbon As IRibbonUI

Public Sub onLoad_98(ribbon As IRibbonUI)
  Set objRibbon = ribbon
End Sub

Public Sub onAction_Button(control As IRibbonControl)

End Sub

Public Sub getEnabled_Button(control As IRibbonControl, ByVal returnValue)
   If ActiveSheet.Name = control.Tag Then returnValue = True
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Public Sub getEnabled_Button(control As IRibbonControl, ByRef returnValue) If ActiveSheet.Name = control.Tag Then returnValue = False Else returnValue = True End If End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ribbon Enable/Disable

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread