Bedingte Formatierung mit benutzerdef. Funktion
12.07.2004 10:09:47
Christian
ich habe eine Tabelle, die durch Einfärbung von Zellen den Wartungszustand von Geräten anzeigen soll.
Am Anfang des Jahres werden die Zellen gelb eingefärbt, die den Monat repräsentieren, in dem eine Maschine gewartet werden soll.
Wird bis zum Ablauf des Monats nichts in die Zelle eingetragen, soll die Zelle rot werden.
Die Spalten J:J bis U:U repräsentieren die Monate eines Jahres, ab Zeile 6 stehen Daten in den Spalten.
Ich habe versucht, das per Bedingter Formatierung zu lösen. Dazu wurden die Zellen J6 bis Unnn markiert und folgendes Format zugewiesen:
=UND(MONAT(HEUTE())>MONAT(J$1); iscolor(j6))
iscolor() ist eine benutzerdefinierte Funktion des Workbooks :
Function IsColor(rng As Range,
_Optional lngRGBColor As Long = 65535) As Boolean
Application.Volatile
IsColor = False
If rng(1, 1).Interior.Color = lngRGBColor Then IsColor = True
End Function
Jetzt passiert folgendes:
Beim Setzen der Bedingung (alle betroffenen Zellen sind markiert) werden die Zellen korrekt formatiert.
Wird eine gelbe Zelle an eine andere Stelle kopiert, wird diese neue Zelle korrekt formatiert.
Wird eine Zelle irgendwie neu formatiert (über Menübefehle oder Popup-Menü und Dialog), hängt sich Excel auf.
Frage:
Kann mir jemand einen Tipp geben, woher dieses Verhalten rührt und wie ich es umgehen kann?
Vielen Dank für die Mühe!
Tschuess...csm