Hintergrundfarbe einer Zelle per VBA
11.12.2003 15:10:48
Dirk Adebahr
ich habe da ein Problem, zu dem ich im Forumsarchiv keinen Lösungsvorschlag finden konnte.
Folgender Sachverhalt liegt vor: ich habe in VBA eine Funktion geschrieben, die mir in Abhängigkeit von Datum und Schichtzugehörigkeit ausgibt, wann ich welche Schicht zu fahren habe.
Ich gebe in eine x-beliebige Zelle folgendes ein:
=Schicht(Datum;Schichtzugehörigkeit)
Datum und Schichtzugehörigkeit hole ich mir dabei aus anderen Zellen. Das sieht dann schlußendlich beispielsweise so aus:
=Schicht(A1;A2)
Als Ergebnis liefert mir die Funktion dann F, S, N oder "-" für Frühschicht, Spätschicht usw.
Das Funktioniert auch alles hervorragend.
Aber:
Jetzt möchte ich diese Funktion eine Sub-Prozedur aufrufen lassen, die mir den Wochentag ermittelt (stellt auch noch kein Problem dar).
Ist der Wochentag Samstag oder Sonntag, soll die Zelle eingefärbt werden.
Das Problem ist jetzt, daß der ganze Spaß in einer x-beliebigen Zelle erfolgt. Wie bekomme ich es also hin, daß VBA mir die Zelle einfärbt, in der ich die Funktion Schicht(Datum;Schichtzugehörigkeit) aufgerufen habe. Die Zelle kann ich ja nicht über RANGE benennen. Auch das Ansprechen über ACTIVECELL funktioniert nicht.
Für Lösungsvorschläge in dieser Sache wäre ich sehr dankbar!
Gruß
Dirk Adebahr