Bed. Format. Doppelte Werte aber andere Spalte

Sub Makro3() ' Makro3 Makro Range("A1:A10").Select Selection.FormatConditions.AddUniqueValues Selection.FormatConditions(1).DupeUnique = xlDuplicate With Selection.FormatConditions(1).Font .Color = -16751204 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 10284031 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Herbert,
denn Theo schreibt „…zusätzlich, oder auch nur, B3 und B7 färbt“. Zusätzlich zu den per BedingtFormat gefärbten Zellen A2 und A7 wohlgemerkt, nicht abhängig vom Inhalt von Spalte B, was dein Vorschlag bewirken würde.
Tja, Theo,
dafür ist dieses BedingtFormat nicht vorgesehen! Aber es gibt in Xl-Versionen ab 14/2010 eine brauchbare Alternative, die allerdings aus 2 Gründen nur unter Zuhilfenahme einer benannten Fml fktioniert. Dabei ist egal, ob du das manuell oder per Makro einträgst. Nur mit VBA könntest du die Farbe direkt auf die andere Spalte übertragen, aber dazu muss auch ein Ereignis ausgelöst wdn, wenn das automatisch erfolgen soll. Dann ist folgender Vorschlag beinahe einfacher:
1. Die Färbung von B ist hierbei nur zusätzlich und per BedingtFormat möglich.
2. BedingtFormat von A anlegen, denn sein Ergebnis wird im per benannter Fml gestützten BedingtFormat von B benötigt.
3. Mit B (und A) korrespondierende benannte Fml anlegen (hier Daten ab Zeile 2):
ZFarbe:=AUSWERTEN("CellColor("&ADRESSE(ZEILE($A2);1)&")")
Hier ist schon ein Grund für die benFml zu sehen → XLM-Fkt AUSWERTEN, deren Ersatz durch eine entsprd UDF nichts hieran ändern, stattdessen aber idR FmlText-Angabe in US-Notation erfordern würde.
4. BedingtFormat-Regel in B anlegen:
Regel1:=UND(ZFarbedezimalerAuszeichnungsFarbwertltRegelinA;1^(JETZT()*A2)=1)
Eine (evaluierende) UDF kann nicht in einer RegelFml angegeben wdn (2.Grund für benFml). Sie ist aber erforderlich, um die gezeigten ZellFarben von A feststellen zu können. Das ist nur per Evaluierung möglich, da Xl die Nutzung der neuen objektbildenden Range-Eigenschaft DisplayFormat in in Fmln angewendeten UDFs mit #WERT!* quittiert (Texte überprüft Xl nicht dahingehend).
Die volatile XlFkt in der RegelFml ist erforderlich, um stete Neuberechnung zu veranlassen. Eine Volatilität der UDF nutzt bei der erforderlichen xl-„überlistenden“ Methode nichts!
* MS befürchtet wohl anderenfalls Xl-Instabilitäten.
5. Die benötigte UDF CellColor ist trivial und kann natürlich durch eine komfortablere ersetzt wdn:

Rem Ermittelt gezeigte ZellFarbe (auch aus BedingtFormat, erst ab Xl14)
Function CellColor(Zelle As Range)
CellColor = Zelle.DisplayFormat.Interior.Color
End Function

Vollzugsmeldung erwünscht! Gruß, Luc :-?
Besser informiert mit …

…eine einfachere Lösung, Theo,
auch ganz ohne BedingtFormat in Spalte A, sondern ggf nur in B (letzter MenüPkt Fml verwenden):
BedFmt in B2 - Regel1:=ZÄHLENWENN($A$2:$A$11;$A2)>1
Auf dieser Basis könnte man per benannter Fml mit (Link unten) UDF-Einsatz* ggf auch unterschiedliche Farben für unterschiedliche doppelte Werte in der BedingtFormatierung festlegen:
relPosit:=VSplit(VJoin(WENN(ZÄHLENWENN($A$2:$A$11;$A$2:$A$11)>1;VERGLEICH($A$2:$A$11;$A$2:$A$11;0);"");;-1);;1)
Im BedingtFormat dann entsprd viele Regeln anlegen, zB:
B2-Regel1:=VERGLEICH(WENN(ZÄHLENWENN($A$2:$A$11;$A2)>1;VERGLEICH($A2;$A$2:$A$11;0);"");relPosit;0)=1
B2-Regel2:=VERGLEICH(WENN(ZÄHLENWENN($A$2:$A$11;$A2)>1;VERGLEICH($A2;$A$2:$A$11;0);"");relPosit;0)=2
B2-Regel3:=VERGLEICH(WENN(ZÄHLENWENN($A$2:$A$11;$A2)>1;VERGLEICH($A2;$A$2:$A$11;0);"");relPosit;0)=3
B2-Regel4:=VERGLEICH(WENN(ZÄHLENWENN($A$2:$A$11;$A2)>1;VERGLEICH($A2;$A$2:$A$11;0);"");relPosit;0)>3
Mittels TintAndShade-Skalierung könnte sogar eine Abstufung der gleichen Grundfarbe erreicht wdn.
* Die BedingtFormatierung scheint im Ggsatz zu benannten Fmln keine UDFs aus einem AddIn zu mögen, auch wenn es aktiviert ist. Unter Xl9/2k hatte ich damit keine Probleme! Aber so wird die Regel ja auch übersichtlicher… ;-)
Vollzugsmeldung erwünscht! Gruß, Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

Bed. Format. Doppelte Werte aber andere Spalte

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread