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.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen