Hi, vielleicht so:
Zellinhalt als Variable speichern (single/double) und dann abfragen: Dim wert As Single wert = ActiveSheet.Cells(3, 5) 'Inhalt von Zelle E3
if wert > 100 then ActiveSheet.Cells(3, 5).Font.Color = RGB(255, 0, 0) 'rot , falls >100 else ActiveSheet.Cells(3, 5).Font.Color = RGB(0, 255, 0) 'grün, falls <100 end if Ich hoffe, ich konnte dir weiterhelfen... Gruß
Alexander Klein
AW: Inhalt ändert automatisch die Farbe
12.05.2004 13:58:03
atikar
hallo alexander,
danke für deine hilfe, aber es muss auch ohne makro gehen, ich habe eine tabelle da ist das so.
ciao
atikar
?
12.05.2004 14:02:53
Alexander
Hallo atikar,
meines Erachtens geht das ohne Makro nicht, habe selbst schonmal so was ähnliches versucht...
Alexander
Anzeige
AW: Inhalt ändert automatisch die Farbe
12.05.2004 14:00:26
Franz
Hallo atikar
zellenformat
[Rot][>100]Standard;[Grün][
Gruß Franz
AW: Inhalt ändert automatisch die Farbe
12.05.2004 14:10:16
Joachim
Hi atikar,
Format, Bedingte Formatierung, Zellwert kleiner 100, Schriftfarbe auf grün setzen, hinzufügen, Zellwert größer gleich 100, Schriftfarbe auf rot setzen
Gruß Joachim