Office: Schriftfarbe ändern wenn Bedingung erfüllt

Marvin1967 · 24. Mai 2016

Hallo zusammen,

ich versuche seit einigen Tagen, eine VBA-Lösung zu erarbeiten, scheitere aber schlicht und einfach.

Ich habe eine EXCEL-Tabelle (EXCEL2016), in welcher im Bereich Q11 bis Q377 entweder ein + oder ein - enthalten ist.

Nun soll in Abhängigkeit vom Zellinhalt einer Zeile in Q die Schriftfarbe in den Spalten C bis F weiß sein.
Wenn Eingaben z. B. in Zeile 15 in den Spalten C bis F gemacht werden, soll die Schriftfarbe weiß sein, wenn in Q15 ein + steht.

Die Spalten C bis F werden manuell mit Daten gefüllt, von daher scheitere ich mit einer Funktion, da diese beim Befüllen automatisch überschrieben werden würde.

Kann mir jemand helfen?
Grüße aus Hannover
Marvin König

:)

EarlFred · 25. Mai 2016

Hallo Marvin,

warum denn VBA? Per Bedingter Formatierung ist das doch viel einfacher - und die Mappe bleibt makrofrei (wenn sie es heute noch ist).

Grüße
EarlFred

EarlFred · 25. Mai 2016

...und wenn es noch unbedingt ein Makro sein muss:
Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range
If Not Intersect(Target, Me.Range("Q11:Q377")) Is Nothing Then
For Each c In Intersect(Target, Me.Range("Q11:Q377"))
Intersect(c.EntireRow, Me.Range("C:F")).Font.Color = IIf(c.Value = "+", vbWhite, vbBlack)
Next c
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was bei einem "-" oder einem anderen Wert passiert, hast Du nicht vorgegeben. Müsstest Du dann selbst einarbeiten.

Grüße
EarlFred

Marvin1967 · 25. Mai 2016

Danke, auf die einfachsten Sachen kommt man meistens nie von allein.
Ich werde die bedingten Formate einsetzen.

Das Makro hat übrigens auch geholfen, ich habe es zumindest getestet.

Danke danke Danke

Gruß aus Hannover
Marvin König

FHACStudent · 10. August 2016

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range
If Not Intersect(Target, Me.Range("D12: D33")) Is Nothing Then
For Each c In Intersect(Target, Me.Range("D12: D33"))
Intersect(c.EntireRow, Me.Range("A: E")).Font.Color = IIf(c.Value = "0", vbWhite, vbBlack)
Next c
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist mein Code den ich als Grundlage verwendet habe wie in diesem Thread ja schon gepostet nur etwas auf meine Problemstellung angepasst. Mein Problem ist nun, dass wenn der Wert in der Spalte D wieder ungleich 0 wird, ändert sich die Farbe nicht wieder auf Standard. Wie kann ich das umgehen?

Danke schonmal,
FHACStudent

xlph · 10. August 2016

was ist standard?

aloys78 · 10. August 2016

Hallo,

bei mir funktioniert es nach folgenden Änderungen (Leerstelle entfernt):
Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range
If Not Intersect(Target, Me.Range("D12:D33")) Is Nothing Then
For Each c In Intersect(Target, Me.Range("D12:D33"))
Intersect(c.EntireRow, Me.Range("A:E")).Font.Color = IIf(c.Value = "0", vbWhite, vbBlack)
Next c
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

FHACStudent · 10. August 2016

Ja der Code funktioniert an sich, aber wenn der Wert wieder größer als 0 wird macht er die Schriftfarbe nicht wieder automatisch schwarz. Muss dann die Zelle nochmals selbst doppelklicken oder sogar die formel in die Zeile nochmals copy-pasten.

aloys78 · 10. August 2016

Hallo,

...aber wenn der Wert wieder größer als 0 wird macht er die Schriftfarbe nicht wieder automatisch schwarz
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das kann ich nicht nachvollziehen, aber ich kenne auch Deine Datei nicht.
Auch frage ich mich, warum Du die Zahlen als Text bezeichnest.

Im Anhang eine Testdatei, da funktioniert es.

Gruß
Aloys

FHACStudent · 10. August 2016

Ok vielen Dank.

Gruß
FHACStudent

Office: Schriftfarbe ändern wenn Bedingung erfüllt

Schriftfarbe ändern wenn Bedingung erfüllt

Schriftfarbe ändern wenn Bedingung erfüllt

Schriftfarbe ändern wenn Bedingung erfüllt

Schriftfarbe ändern wenn Bedingung erfüllt

Schriftfarbe ändern wenn Bedingung erfüllt - Similar Threads - Schriftfarbe ändern Bedingung

Ändern der Schriftfarbe

Ändern der Standardtextfarbe (Schriftfarbe) in Word

VBA -Code für Schriftfarbe je nach Inhalt ändern

schriftfarbe bei Textbox ändern

Formatvorlage ändern --> Schriftfarbe "__Keine Farbe

Wenn-Dann Funktion Schriftfarben ändern

Wenn Wert sich ändert, soll sich Schriftfarbe ändern