Farbe abhängig von Begriff

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo,
deswegen bin ich ja hier. Alleine schaffe ich das nicht.
Aber Dein Ratschlag, ich soll es doch mit einer bedingten Formatierung machen, finde ich ziemlich blöd. Ich hatte doch schon geschrieben, dass es nicht geht, weil danach noch ein anderes Makro läuft und die Werte addiert. Es sei denn, Du machst das nachfolgende Makro schlauer:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngAll As Range, rngAct As Range
Dim dRed As Double, dBlau As Double, dGreen As Double
Set rngAll = Range("F8:F1000")
For Each rngAct In rngAll.Cells
Select Case rngAct.Font.ColorIndex
Case Is = 3: dRed = dRed + rngAct.Value
Case Is = 41: dBlau = dBlau + rngAct.Value
Case Is = 43: dGreen = dGreen + rngAct.Value
End Select
Next rngAct
Range("H1") = dRed
Range("H2") = dBlau
Range("H3") = dGreen
End Sub

Function cc(rngAll As Object)
Dim rngAct As Range
Dim dValue As Double
Application.Volatile
For Each rngAct In rngAll
If rngAct.Font.ColorIndex = _
Application.Caller.Interior.ColorIndex Then
dValue = dValue + rngAct.Value
End If
Next rngAct
cc = dValue
End Function

Viele Grüße
Markus

Hallo zusammen, ich habe folgenden Tabellenaufbau: Spalte C mit Zahlen Spalte F mit -Werten (alle Werte in dieser Spalte haben derzeit die Schriftfarbe rot) Nun möchte ich die Schriftfarbe in Spalte F abhängig machen von dem Wert aus Spalte C. Genauer _ gesagt, soll die Schriftfarbe in F wie folgt aussehen: - blau, wenn 32,33,40 in Spalte C eingegeben wurde - grün, wenn 5, 7 in Spalte C eingegeben wurde - rot bei allen anderen Zahlen in Spalte C Danke für Eure Unterstützung. Viele Grüße Markus

Hi Markus
hmmmm.....meine und HaJos Antwort passen nicht zu deiner Frage.
Warum nicht?
Weil du deine Eingangsfrage nicht vollständig ausformuliert hast.
Hätte ich vorher gewusst, dass nur bestimmte Zahlen addiert werden sollen, hätt ich vielleicht gar keine, aber auf jeden Fall nicht die Lösung mit bed. Form. vorgeschlagen, da mir bekannt ist, dass XL diese Art der Farbensetzung nicht "erkennt".
Was hältst du von der Idee, die Werte in F nur dann zu addieren, wenn in Spalte C der eingegebene Wert passt?
Also....
Wenn C = 5 dann Summe_5 = Summe_5 + Wert aus F
Wenn C = 7 dann Summe_7 = Summe_7 + Wert aus F
Wenn C = 32 dann Summe_32 = Summe_32 + Wert aus F
...usw...
Und diese Bedingungen lässt du halt in einer Schleife durchlaufen, bis alle Werte in Spalte C abgefragt wurden.
Hilft das?
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread