10.08.2025, 15:47
(Dieser Beitrag wurde zuletzt bearbeitet: 10.08.2025, 15:48 von d'r Bastler.)
Moin Steffen,
in Deinem Code gibt es die Zeile Set fundbereich = ...
Meine vier Zeilen ersetzen Deine eine Zeile danach.
Um auch tatsächlich Deine Farbe zu setzen, ändere meine Zeile 2 auf .Foont.Color = RGB(62, 137, 206)
Das sollte schon funktionieren
Meine Frage spielt im Zusammenhang Deines Codes keine erhebliche Rolle ... einfach vergessen.
Viel Erfolg!
in Deinem Code gibt es die Zeile Set fundbereich = ...
Meine vier Zeilen ersetzen Deine eine Zeile danach.
Um auch tatsächlich Deine Farbe zu setzen, ändere meine Zeile 2 auf .Foont.Color = RGB(62, 137, 206)
Das sollte schon funktionieren

Meine Frage spielt im Zusammenhang Deines Codes keine erhebliche Rolle ... einfach vergessen.
Viel Erfolg!
----------------------------------------------------------------------------------------------------
d'r Bastler von den VBAsteleien.de
Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019 pro & Android12 & XL365
d'r Bastler von den VBAsteleien.de
Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019 pro & Android12 & XL365