wie bekomme ich einen Text aus einer Zelle in die Fußzeilen mehrerer AB mit einer bestimmten Farbe und der Schriftart "SegoeUI"?
https://www.herber.de/bbs/user/135880.xlsm
Vielen Dank im Voraus
Servus
Public Sub fusszeile_alle()
Dim obj_wks As Worksheet
Dim str_hex As String
Dim str_farbe As String
Dim R As String
Dim G As String
Dim B As String
Dim ZellFarb As Long
ZellFarb = Worksheets("Tabelle1").Range("D1").Interior.Color
R = Hex(ZellFarb - (ZellFarb \ 65536) * 65536 - _
((ZellFarb - (ZellFarb \ 65536) * 65536) \ 256) * 256)
G = Hex((ZellFarb - (ZellFarb \ 65536) * 65536) \ 256)
B = Hex(ZellFarb \ 65536)
If Len(R)
Hinweis: Irgendetwas stimmt mit der Farbumrechnung in Hex noch nicht. Damit stehe ich aber auch "auf Kriegsfuß". Bei den Farben scheint der Rot und der Blauwert vertauscht.