Office: Excel VBA abhängig von Datum zellen färben

Hallo zusammen,

wie kann ich mit VBA in folgender Tabelle angeben dass jeder Monat in einer anderen Farbe ausgegeben wird. In A5 wird das aktuelle Jahr angegeben. Wenn ich dieses ändere, ändern sich auch alle anderen Daten. Bedingte Formatierung kann ich leider nicht einsetzen, da mit Excel 2003 nur drei Bedingte Formatierungen möglich sind.

Hab leider noch keine Ahnung von VBA.

Vielen Dank schon mal für Eure Hilfe.

 

Hallo,

in der beiliegenden Excel-Datei habe ich versucht, Deine Wünsche zu erfüllen, wobei mir so manches unklar blieb.

1) In VBA habe ich die Ereignissteuerung für das Change-Ereignis des Arbeitsblattes "Tabelle1" entfernt aus dem allgem.Codemodul und verschoben in das Codemodul des Arbeitsblattes. Denn in einem allgem.Codemodul funktioniert keine Ereignissteuerung.
1a) Diese Ereignissteuerung ist jetzt so eingestellt, dass im Bereich F5:BG9 die Zellen für die Arbeitstage (Mo-Fr) monatlich eine andere Farbe erhalten.
1b) Ferner habe ich im Bereich F3:BG3 die Monatsüberschriften so ausgerichtet, dass sie mit der Spalte des 1. Arbeitstages eines Monats zusammenfallen.
1c) Ferne habe ich im Bereich F2:AG2 die Bezeichnungen "Fasching" in die Spalte des Faschingssonntags, "Ostern" in die Spalte des Ostersonntags und "Pfingsten" in die Spalte des Pfingstsonntags platziert.

2) Darauf hinweisen möchte ich, dass ich im Arbeitsblatt "Tabelle1" im Bereich E4:BG4 bzw. F4:BG11 die USA-Methode zur Ermittlung der Kalenderwoche vorgefunden habe. Diese weicht nämlich von der "Europäischen Methode" ab. Ich habe das nicht geändert, da ich nicht weiß, für welche Weltgegend das Ganze bestimmt ist. Im Arbeitsblatt "Feiertage" habe ich die korrekte Formel nach der Europ.Methode angeführt und auch in Spalte H bei den Feiertagen angewandt.

3) Im Arbeitsblatt "Feiertage" habe ich eine Tabelle mit Feiertagen aus Österreich bzw. Deutschland eingefügt, falls dafür Interesse besteht.

4) In VBA habe ich in einem allgem. Codemodul eine Funktion zur Ermittlung des Ostersonntags für das jeweilige Kalenderjahr eingefügt. Diese ist ab dem frühest möglichen Zeitpunkt der Gregorianischen Kalenderrechnung (also ab 15.10.1582) möglich bis (theoretisch) zum Jahr 9999. Da in den Arbeitsblättern von Excel die Datumsarithmetik erst ab dem 1.1.1900 funktioniert, kann diese Funktion im Arbeitsblatt erst ab dem Jahr 1900 eingesetzt werden. Für die Feiertagstabelle aus Punkt 3) habe ich diese Funktion verwendet und ebenso für die Bezeichnungen aus Punkt 1c).