AW: Label-Ribbontext soll Ohm-Zeichen enthalten?
26.09.2015 17:50:10
Hajo_Zi
Hallo Kasimir,
ich benutze eine Tabelle in der Datei für Beschriftung, Hilfe usw.
getLabel="button_getText"
Sub button_getText(control As IRibbonControl, ByRef Label)
' Beschriftungen den Schaltern zuweisen
Dim Rafound As Range
With ThisWorkbook.Worksheets("Symbolleiste")
Set Rafound = .Columns(2).Find(control.id, .Cells(Rows.Count, 2), xlValues, xlWhole, , _
xlNext)
If Not Rafound Is Nothing Then Label = .Cells(Rafound.Row, 3)
End With
Set Rafound = Nothing
End Sub
dort ist das Zeichen kein Problem.