VBA- Wochenenden bis Zeile 430 farblich hervorheben

[Tommiks]

Hallo zusammen,

ich habe einen Code gefunden, der die Wochenenden nur in der ersten Zeile farblich kennzeichnet. 
Der Kalender fängt tatsächlich bei der Spalte "R" an. 
Könnt ihr mir bitte bei der Erweiterung bis zu der Zeile 430 helfen? Danke...

Ein schönes Wochenende

[Cadmus]

Hallo,

warum per VBA. Das geht doch einfacher über die bedingte Formatierung.

[Tommiks]

Die Lösung "Bedingte Formatierung" habe ich schon. Ich schaffe die bedingten Formatierungen aus meiner Datei raus.

[derHoepp]

Moin,

auf den Hinweis, die bedingten Formatierung zu überarbeiten bist du im letzten Thread leider nicht eingegangen. m.E. ist es ein Irrglaube, dass sich durch selbst gebasteltes VBA Geschwindigkeitsvorteile gegenüber integrierten Funktionen erreichen lassen. Sei es drum: den Wochentag in VBA ermittelst du mit der Weekday() Funktion.

Viele Grüße
derHoepp

[00202]

Hallo,  

du hast ja wahrscheinlich im unteren Bereich der Tabelle noch andere Farben? Dann könnte sich das überschneiden. In der Beispieldatei ist es mit Rahmen gelöst. Farbe ist aber auch drin (Code ist auskommentiert):
[attachment=45406]

Du hast auch die Schaltjahre vergessen. Habe die Formel am Ende ergänzt.

Code startet durch Änderung des Jahres in A1. Mach was draus.