Hallo Onur,
vielen Dank für deine schnelle Antwort.
Ich habe deinen Lösungsansatz probiert aber er lässt sich nicht auf meine Tabelle anwenden.
Wie du aus meinem Makro entnehmen kannst müssen mehrere Ranges eingefärbt werden. Das lässt die Bedingte Formatierung aber nicht zu. Bekomme immer eine Fehlermeldung das ich Mehrfachauswahl von Bereichen, also z.Bsp. Spalte A - C und Spalte E - G, bei bedingter Formatierung nicht verwenden kann.
Das ist allerdings auch nicht mein Problem. Denn das bestehende Makro macht ja bereits diesen Job.
Auf deine zweite Antwort.
Ich habe bereits in Spalte A die jeweiligen Bereiche den entsprechenden Quartalen zugeordnet.
If Int(Format(Date, "Q"))
Durch diese Zeile erkennt das Makro anhand des Tagesdatums welches Quartal heute ist und färbt den entsprechenden Bereich Grün. Ich benötige nun die Möglichkeit dem Makro zu sagen es soll statt Quartal 1 (Heute) das Quartal 3 (Juli - August) Grün einfärben.
Leider kann ich kein Bild anhängen sonst hätte ich einen Schnipsel aus der Datei angehängt damit man sich ein Bild davon machen kann wie das ganze aussieht.
Vllt. hat ja doch noch jemand eine VBA-Lösung für das Problem.
MfG
Sven G.
|