Excel 7.0
Farbige Darstellung von bestimmten Texten
Antwort
Tip: Excel bietet die Möglichkeit, Zellinhalte abhängig von bestimmten Bedingungen
über ein spezielles Zahlenformat mit »Format | Zellen | Benutzerdefiniert« farbig
darzustellen - sofern die Zellinhalte aus Zahlen bestehen. Bei Texten funktioniert dies
leider nicht. Auch über eine WENN-Funktion läßt sich diese Farbanpassung für Texte
nicht steuern. Bleibt nur die Lösung über ein Makro. Das Makro wechselt zunächst zu
der in der zweiten Zeile angegebenen Tabelle, um dort zu der in der dritten Zeile des
Makros angegebenen Startzelle zu springen. Danach überprüft es nacheinander alle
darunterliegenden Zellen, bis es auf eine Leerzelle stößt. Trifft es zuvor auf
den in der fünften Makrozeile definierten Wert, ändert es die Schriftfarbe dieser Zelle.
Das Beispielmakro durchsucht den Tabellenbereich nach dem Wort Samstag, um es
dann rot (FarbIndex 3) zu formatieren. Sowohl den Tabellennamen als auch die
Startzelle müssen Sie Ihren Gegebenheiten anpassen.
Makrolisting zum Einfärben bestimmter Zellen:
Sub Farbe() BlattListe("Tabelle1").Auswählen Bereich("d1").Auswählen Solange
AktiveZelle <> "" Wenn AktiveZelle.Wert = "Samstag" Dann
Auswahl.Schriftart.FarbIndex = 3 Ende Wenn AktiveZelle.Versetzen(1;
0).Bereich("A1").Auswählen EndeSolange Ende Sub