Office: Probleme mit Formel und Schriftfarbe

Hallo, ich hoffe hier ist jemand der mir weiterhelfen kann. Bin kein Excel Experte, sondern versuche mich immer irgendwie selbst durch zu kämpfen. Habe folgendes Vorhaben: In Zelle A1-A5 sind Buchstaben der Schriftart Windings3 (Pfeile nach oben, rechtsoben, waagerecht rechts, rechtsunten, unten). Rechts daneben steht nur die Bedeutung. Zum Einfügen dieser "Pfeile" habe ich eine Formel:=WENN(ODER(B9>10;B9=10);A1;WENN(UND(B9<10>5);A2;WENN(B9=5;A2;WENN(UND(B9<5>-5);A3;WENN(B9=-5;A4;WENN(UND(B9<5>-10);A4;A5))))))
Nun wird zwar der richtige Pfeil eingetragen, dieser soll aber Grün, gelb, oder rot sein. Und dies ist auch mein Problem. Wie kann ich automatisch die nach oben zeigenden Pfeile grün, den waagerechten gelb und die nach unten zeigenden Pfeile rot machen.

Û > 10 unendlich bis 10
Þ 10 bis 5 5 kleiner 10 größer/gleich 5
Ú 4,9 bis -4,9 0 kleiner 5, größer/gleich 0 und/oder kleiner 0 kleiner/gleich -5
à -5 bis -10 -5 größer -10, kleiner /gleich -5
Ü < -10 minus unendlich, bis -10



11 Û

Sorry für die umständliche Beschreibung.

 

Hallo,

prinzipiell könnte man das über die Bedingte Formatierung machen aber diese lässt (bei Excel-Versionen vor XL2007) nur drei Bedingungen zu wobei das für Grün, Gelb und Rot reichen sollte.

Markiere den Bereich in dem deine Pfeile stehen (Beispiel: B1 bis B10) - Menü Format - Bedingte Formatierung - Formel ist: =B1="Û" - Format... - Register Schrift und dort die gewünschte Farbe wählen - Ok - Hinzufügen und jetzt machst du das für die beiden anderen Werte genauso.

Die Anpassung auf die Felder B2 bis B10 übernimmt Excel selbst wenn du den Bereich vorher markierst.

Wenn du mehr als drei Bedingungen benötigst und nicht Excel2007 einsetzt dann bleibt dir nur der Weg über die interne Excel-Makrosprache VBA.

 

VBA für Schriftfarbe

Hallo Peter,
vielen Dank für Deine schnelle Antwort. Ich habe leider etwas länger benötigt, um hin un her zu probieren. Ich komme wohl doch nicht um VBA herum. Leider habe ich davon überhaupt keine Ahnung. Ich habe mich hier durch das Forum geklickt und dies hier gefunden und etwas umgebaut:
If Me!Datenfeld = "Û" Then
Me!Datenfeld.ForeColor = vbGreen
Else
If Me!Datenfeld = "Þ" Then
Me!Datenfeld.ForeColor = vbGreen
Else
If Me!Datenfeld = "Ú" Then
Me!Datenfeld.ForeColor = vbYellow
Else
If Me!Datenfeld = "à" Then
Me!Datenfeld.ForeColor = vbRed
Else
If Me!Datenfeld = "Ü" Then
Me!Datenfeld.ForeColor = vbRed
End If

Aber leider bekomme ich das Modul nicht hin. Er gibt mir immer eine Fehlermeldung. Bin ich auf dem völlig falschen Weg? Bin für jede Hilfe dankbar. :roll: