Status einer Zellenformatvorlage direkt im Menüband sehen

[mumpel]

Hallo!

Unter Windows wäre das kein Problem. Ist auch nicht ganz so aufwendig wie es sich anhört, da braucht es "nur" ein Add-In mit Klassenprogrammierung (eine solche nutze ich schon in einem meiner Add-Ins, um Informationen im Menüband anzuzeigen). Allerdings wäre das nur als Zusatzelement/Zusatzaanzeige möglich. Die Originalschaltfläche lässt sich nicht beeinflussen. Da Du aber Mac-OS hast kann ich nicht helfen.

Gruß, René

[mumpel]

(...) Aber da hilft wohl nur ein größerer Bildschirm (...)

Nützt garnichts. Die Zellenformatvorlage (Formatierung) der aktiven Zelle wird auch bei großen Monitoren nicht im Menüband angezeigt.

[mumpel]

Hier mal ein Beispiel. Als Add-In gespeichert stehen die Informationen zur Verfügung. Getestet in Office 365.

Der XML-Code:

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" on‌Load="XL_NF">
    <ribbon startFromScratch="false">
        <tabs>
            <tab idMso="TabHome" >
                <group id="grp0" label="NumberFormat" insertAfterMso="GroupClipboard">
                    <labelControl id="lbl0" getLabel="Text_NF" />
                    <labelControl id="lbl1" getLabel="Text_Style" />
                    <labelControl id="lbl2" getLabel="Text_TableStyle" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

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

In "DieseArbeitsmappe"

Private Sub Workbook_Open()
 Call Load_clsNF
 With ActiveCell
     strNF = .NumberFormatLocal
     strStyle = .Style
     If TypeOf ActiveCell Is Range Then
         If Not .ListObject Is Nothing Then
            strTableStyle = .ListObject.TableStyle
         Else
            strTableStyle = "Kein Objekt vorhanden."
         End If
     End If
 End With
End Sub

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

In ein allgemeines Modul:

Option Private Module
Option Explicit

Public objRibbonNF    As IRibbonUI
Public strNF          As String
Public strStyle       As String
Public strTableStyle  As String
Public X_NF           As New clsNF

Public Sub XL_NF(ribbon As IRibbonUI)
   Set objRibbonNF = ribbon
End Sub

Public Sub Text_NF(control As IRibbonControl, ByRef text)
  text = strNF
End Sub

Public Sub Text_Style(control As IRibbonControl, ByRef text)
  text = strStyle
End Sub

Public Sub Text_TableStyle(control As IRibbonControl, ByRef text)
  text = strTableStyle
End Sub

Public Sub Load_clsNF()
Set X_NF.AppNumberFormat = Application
End Sub

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

In ein Klassenmodul mit dem Namem clsNF

Public WithEvents AppNumberFormat As Application
 
Private Sub AppNumberFormat_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  strNF = Target.NumberFormatLocal
  strStyle = Target.Style
  If TypeOf Target Is Range Then
     If Not Target.ListObject Is Nothing Then
            strTableStyle = Target.ListObject.TableStyle
     Else
            strTableStyle = "Kein Objekt vorhanden."
     End If
  End If
  objRibbonNF.Invalidate
End Sub

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