Möchte mit einem Makro die Hintergrundfarbe einer Zelle auslesen und auf andere Zellen übertragen. Diese Zellen sind in (farbigen) intelligenten Tabellen (listobject).
Funktioniert auch super.
ABER:
Wenn keine Hintergrundfarbe in der Ausgangszelle vorhanden ist, dann werden die Zielzellen weiss gefärbt (das weiss ist sichtbar weil es ja in einer farbigen intelligenten Tabelle ist). Warum? Wie macht man das sonst? Wenn ne Farbe in der Ausgangszelle vorhanden ist soll sie übernommen werden, wenn keine da ist, dann soll die Hintergrundfarbe halt keine sein (colorindex xlnone) und nicht weiss.
.Range("AG" & ColorApplierCounter & ": AH" & ColorApplierCounter).Interior.Color = Options.Cells(ColorPickerCounter, 4).Interior.Color
Viele Grüsse
Kailash