Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zuweisung einer Farbe mit einer WENN-Formel

Zuweisung einer Farbe mit einer WENN-Formel
06.10.2007 02:04:19
Peter
Liebe VBA-Freundinnen und -Freunde,
ich möchte einer bestimmten Zelle in Abhängigkeit vom Inhalt einer anderen Zelle mithilfe einer WENN-Formel nicht nur einen bestimmten Wert, sondern auch eine Farbe zuweisen, jedoch finde ich die erforderliche Syntax nicht.
Bisherige Formel (ohne Farbe):
ActiveCell.FormulaR1C1 = "=IF(OR(RC[-1]=""d"",RC[-1]=""s"",RC[-1]=""u""),RC[-5],"""")"
in der Zelle sieht das dann so aus:
=WENN(ODER(J10="d";J10="s";J10="u");F10;"")
Gruss
inl1ner

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Verwende zusätzlich die Bedingte Formatierung
06.10.2007 02:45:00
NoNet
Hallo Peter,
Du könntest zwar per VBA den Interior.Colorindex (=Hintergrundfarbe) der Zelle verändern, praktikabler erscheint mir hier allerdings die normale Verwendung der Bedingten Formatierung der Zelle (entweder zuvor manuell erstellen oder per VBA über "ActiveCell.FormatConditions.Add").
Gute Nacht, NoNet

AW: Verwende zusätzlich die Bedingte Formatierung
06.10.2007 03:39:17
Peter
Hi NoNet,
danke für Deine Nachricht, aber so weit ich weiß, kann man mit der bedingten Formatierung nur eine Bedingung in derselben Zelle setzen. Ich möchte aber bei einer Änderung der Zelle X die Zelle Y formatieren. Habe ich etwas falsch verstanden ?
Gruss
Peter

Anzeige
AW: Verwende zusätzlich die Bedingte Formatierung
06.10.2007 08:16:00
Josef
Hallo Peter,
sicher geht das.
Tabelle1

 BCDEFGHIJK
9          
10 5  5   s 
11          

Formeln der Tabelle
ZelleFormel
C10=WENN(ODER(J10="d";J10="s";J10="u"); F10;"")

Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
C101. / Formel ist =ODER(J10="d";J10="s";J10="u")Abc
Excel Tabellen im Web darstellen  Excel Jeanie HTML
Gruß Sepp

Anzeige
AW: Verwende zusätzlich die Bedingte Formatierung
08.10.2007 11:22:04
Peter
Hallo Sepp,
vielen Dank für Deine Nachricht !!!
Diese Lösung wird mir sicher noch oft helfen.
Viele Grüße
Peter

oder alternativ schon im Code ...
06.10.2007 09:40:51
Matthias
Hallo
Hier kannst Du gleich im Code, der Zelle die bedingte Formatierung zuweisen.

Es wird nicht überprüft, ob schon eine bedingte Formatierung gesetzt ist!
Willst Du evtl. vorhandene bed. Formatierung vorher löschen, baue diese Zeile mit ein:

.FormatConditions.Delete

Userbild
Ergebnis der bed. Formatierung:
Userbild
Sub Formel() With ActiveCell .FormulaR1C1 = "=IF(OR(RC[-1]=""d"",RC[-1]=""s"",RC[-1]=""u""),RC[-5],"""")" .FormatConditions.Add Type:=xlExpression, Formula1:="=" & ActiveCell.Address & " """"" .FormatConditions(1).Interior.ColorIndex = 4 End With End Sub


Gibst Du nun in J10 einen anderen Wert als d, s oder u ein, liefert Dir Deine Formel einen Leerstring und die
Zelle(Hintergrund) wird farblos.
Userbild

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige