Schriftart mit Formel ändern??

[Axl Poethig]

Hallo,
mein Problem ist folgendes, ich habe eine Formel welche mir drei Zustände
angibt (höher, niedriger und gleich). Nun soll bei den Zuständen höher und
niedriger ein Pfeil angezeigt werden. Dies erreiche ich mit den
Schriftzeichen "æ" und "ä" in der Schriftart Windings.

Bei dem Gleichzeichen "=" soll aber die Schriftart Verdana angezeigt werden,
da ich mit der Schriftart Windings sonst ein Diskettensymbol angezeigt
bekomme.

Hier eine Bsp. Formel:
=WENN((Vormonat!N249)>(Datenmaster!N249);"æ";WENN((Vormonat!N249)<(Datenmast
er!N249);"ä";"="))

Hat jemand eine Lösung???
vorab schon mal Danke

[Frank Kabel]

Hi
die Schriftart (wie auch alle anderen Formate) lässt sich
nicht über eine Formel ändern. Auch die bedingte
Formatierung hilft hier nicht, da diese keine
Schriftartänderungen unterstützt.

Einzige Möglichkeit währe eine Event Prozedur in VBA

-----Originalnachricht-----
Hallo,
mein Problem ist folgendes, ich habe eine Formel welche

mir drei Zustände

angibt (höher, niedriger und gleich). Nun soll bei den

Zuständen höher und

niedriger ein Pfeil angezeigt werden. Dies erreiche ich

mit den

Schriftzeichen "æ" und "ä" in der Schriftart Windings.
Bei dem Gleichzeichen "=" soll aber die Schriftart

Verdana angezeigt werden,

da ich mit der Schriftart Windings sonst ein

Diskettensymbol angezeigt

bekomme.
=WENN((Vormonat!N249)>(Datenmaster!N249);"æ";WENN

((Vormonat!N249)<(Datenmast

er!N249);"ä";"="))
Hat jemand eine Lösung???
vorab schon mal Danke
.

[Marcel Valentin]

Post by Frank Kabel

Post by Axl Poethig
Bei dem Gleichzeichen "=" soll aber die Schriftart
Verdana angezeigt werden,da ich mit der Schriftart
Windings sonst ein Diskettensymbol angezeigt
bekomme.
=WENN((Vormonat!N249)>(Datenmaster!N249);"æ";WENN
((Vormonat!N249)<(Datenmaster!N249);"ä";"="))

die Schriftart (wie auch alle anderen Formate) lässt sich
nicht über eine Formel ändern. Auch die bedingte
Formatierung hilft hier nicht, da diese keine
Schriftartänderungen unterstützt.

Ich greif das mal auf und füre es weiter:

Wie Frank schon geschrieben hat geht das nicht mit der bedingten
Formatierung, sondern nur über VBA (Alt+F11).

Dort mußt Du dann in die Tabelle welche beobachtet werden soll folgenden
Code einfügen:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Wenn z.B. die Zelle in Zeile 1 und Spalte 1 (A1) überwacht werden soll
If Target.Row = 1 And Target.Column = 1 Then
Target.Font.Name = IIf(Target = "=", "Verdana", "Windings")
End If
End Sub

Gruß
Marcel

[Axl Poethig]

Hallo,
ich weiß nicht was ich falsch mache aber, bei mir wird bei dem "="-Zeichen
immer noch Windings angezeigt
obwohl ich das Script wie beschrieben auf die Tabelle mit der Ausgabe,
welche beobachtet werden soll angewandt habe.

Gruß Axel

Post by Marcel Valentin

Post by Frank Kabel

Post by Axl Poethig
Bei dem Gleichzeichen "=" soll aber die Schriftart
Verdana angezeigt werden,da ich mit der Schriftart
Windings sonst ein Diskettensymbol angezeigt
bekomme.
=WENN((Vormonat!N249)>(Datenmaster!N249);"æ";WENN
((Vormonat!N249)<(Datenmaster!N249);"ä";"="))

die Schriftart (wie auch alle anderen Formate) lässt sich
nicht über eine Formel ändern. Auch die bedingte
Formatierung hilft hier nicht, da diese keine
Schriftartänderungen unterstützt.

Wie Frank schon geschrieben hat geht das nicht mit der bedingten
Formatierung, sondern nur über VBA (Alt+F11).
Dort mußt Du dann in die Tabelle welche beobachtet werden soll folgenden
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Wenn z.B. die Zelle in Zeile 1 und Spalte 1 (A1) überwacht werden soll
If Target.Row = 1 And Target.Column = 1 Then
Target.Font.Name = IIf(Target = "=", "Verdana", "Windings")
End If
End Sub
Gruß
Marcel

[Herbert Taferner]

Hallo Axel,

vielleicht so,

Zelle in Windings3 formatiert

=WENN((Vormonat!N249)>(Datenmaster!N249);"h";WENN((Vormonat!N249)<(Datenmast
er!N249);"i";"n"))

mfg Herbert