Farbige Zellen û die zweite

In der Ausgabe 2/98 hat WIN einen Tip zur wertabhΣngigen EinfΣrbung von Excel-Zellen gegeben. Unser Leser Hans R. Vaupel hat uns nun eine Σhnliche L÷sung geschickt, die noch einfacher funktioniert als das VBA-Modul mit den IF-Abfragen. Die L÷sung baut auf zwei Komponenten auf: Dem OnEntry-Ereignis und einer Prⁿfprozedur. Die Befehlsfolge der beiden Prozeduren finden Sie im Kasten äFeiertage einfΣrbenô auf dieser Seite, das Listing auf der aktuellen Monats-CD. Die Auto_OpenûProzedur weist bei jedem ╓ffnen der Arbeitsmappe dem OnEntry-Ereignis des Tabellenblatts Tabelle1 den Aufruf Zellfarbe zu. Falls die zu kennzeichnenden Daten auf einem anderen Tabellenblatt stehen, ersetzen Sie einfach den Wert Tabelle1 durch den Tabellennamen. Das Ereignis OnEntry bewirkt, da▀ Excel nach jeder ZellwertΣnderung - durch Eingabe oder Verknⁿpfung - in der Tabelle1 die Prozedur Zellfarbe ausfⁿhrt. Sie k÷nnen mit diesem Ereignis auch jede andere, von Ihnen gewⁿnschte Prozedur starten. Die erste Zeile des zweiten Makros dient der Fehlerbehandlung. Sobald ein Fehler auftritt, verzweigt die Prozedur an die Marke FehlerPruefen. Anschlie▀end ⁿbernimmt die Variable z den Zellwert und fΣrbt den Hintergrund der Zelle. Bitte beachten Sie, da▀ diese L÷sung nicht wie die in Ausgabe 2/98 auf eine Spalte beschrΣnkt ist, sondern fⁿr alle Zellen des Tabellenblatts gilt. Um sie auf eine Spalte einzuschrΣnken, k÷nnen Sie zusΣtzlich eine Prⁿfung auf Spalte einbauen. Dazu ergΣnzen Sie die erste IfûAnweisung wie folgt:

If z <> ôô And ActiveCell.Column = 2 Then