Bestimmten Werten in einer Spalte automatisch eine Schrift-Farbe alternativ Zellfarbe zuteilen

Hallo,
<br />erstelle in der bedingten Formatierung 3 Regeln.
<br />Wenn deine Werte in Spalte A ab A2 abwärts stehen, selektiere die gewünschten Zellen => Bedingte Formatierung => Neue Regel => Formel zur Ermittlung ... und verwende
<br />=ISTZAHL(SUCHEN("Vertragsbearbeitung";A2))
<br />für "Vertragsbearbeitung" und weise das gewünschte Format zu.
<br />Für die anderen Werte ist die Formel analog zur o.g. Formel:
<br />=ISTZAHL(SUCHEN("Beratung + Angebot";A2))
<br />=ISTZAHL(SUCHEN("Akquise";A2))
<br />Claus
<br />

Hallo, ich bin‘s doch noch einmal! Die Idee ist, dass sich die Farbe der Spalte automatisch/dynamisch dem Wert der Zelle Zeile 4 anpasst: dieser Wert kann sich laufend verändern...

Der Wert kann 0, 1 oder 2 sein.

Gruß!

Hallo Lisa vielen Dank erstmal für die Mühe:

Bei dem Versuch, Textstellen mit einer bestimmten Formatierung zu löschen bzw. umzuformatieren gehe ich wie folgt vor: bei mir sind Musterverträge das Thema, in denen verschiedene alternative Formulierungen vorhanden sind, die in bestimmten Konstellationen
zu entfernen oder ausgeblendet zu formatieren sind. Diesen Textstellen habe ich eine Farbe zugewiesen.

Ich gehe dann auf den Reiter Start in Word, dort ersetzen, in die 1. Zeile“ suchen“ gebe ich nichts ein, es bleibt also leer, dann wähle ich Format für dieses Feld nur die Formatierung Zeichen-Farbe, zum Beispiel grün, dann gehe ich in die Spalte ersetzen,
auch diese lasse ich leer, wähle aus nur Zeichen-Format, ausgeblendet, und dann drücke ich den suchen Befehl. Regelmäßig findet word die Farbe nicht, die ich in dem 1. Feld eingegeben habe. Auch alles ersetzen funktioniert nicht. Alle anderen Suchoptionen
bleiben unangehakt, im Fenster Zeichen suchen Schriftart bleibt alles wie es war, nur das Feld Farbe wird mit der Farbe ausgewählt.

Hallo,

habe mal Functions geschrieben die sowas machen. Du musst nur noch die Farbe wissen, oder auslesen.



Mit den Functions für Hintergrund und Schrift kannst Du den aktuellen Wert auslesen. Den könntest Du natürlich auch zählen, oder Du verwendest hierfür die andern Functions, die musst Du dann aber jedesmal anpassen wenn Du andere Farben wählst, daher würde
ich eher Hintergrund und Schrift verwenden dann steht der Wert in einer separaten Spalte und Du kannst viel flexibler auswerten.



Function Anzahl_rot(Bereich)

x = 0

For Each Zelle In Bereich

If Zelle.Font.ColorIndex = 3 Then

x = x + 1

End If

Next

Anzahl_rot = x

End Function

Function summe_rot(Bereich)

x = 0

For Each Zelle In Bereich

If Zelle.Font.ColorIndex = 3 Then

x = x + Zelle.Value

End If

Next

summe_rot = x

End Function

Function Schrift(Zelle As Range)

Application.Volatile

Schrift = Zelle.Font.ColorIndex

End Function

Function Hintergrund(Zelle As Range)

Application.Volatile

Hintergrund = Zelle.Interior.ColorIndex

End Function

Hallo,

die Funktion kann nur auf Werte zugreifen, aber nicht auf Farben.

Du könntest die Spalte nach Farbe filtern und dann mit Teilergebnis summieren.

Falls die Farbe durch die bedingte Formatierung gemacht wird, kannst du in der Formel die Bedingung für die Formatierung verwenden.

Wenn Filtern nicht geht, musst du VBA verwenden.

Claus