könnt Ihr mit sagen, wo hier das Problem liegt? Bekomme immer einen Debug Fehler und komm nicht drauf.
Danke euch schon mal für eure Tips
Gruß Michi
sollte vielleicht erwähnen, daß die Zellen mit Formeln hinterlegt sind, ohne funktioniert es einwandfrei, aber ich möchte den Kalender ja dynamisch halten.
Gruß Michi
wie sehen die Formeln denn aus? Habe das gerade mal nachgebaut und der Code läuft problemlos. Welche Fehlermeldung in welcher Zeile bekommst du?
Von der Lösung der Frage mal abgesehen warum machst du das nicht mit der bedingten Formatierung: Formel in A3 ist =ODER(WOCHENTAG(A3)=1;WOCHENTAG(A3)=7), Format festlegen und dann die Formatierung mit dem Pinsel auf den gesamten Bereich übertragen?
Gruß
Peter
ich möchte das nicht mit bedingter Formatierung machen, weil ich alles über VB lösen will. Die Formel, die momentan vorhanden ist, ist folgende:
=WENN(MONAT(DATUM($A$1;SPALTE();ZEILE()-2))=SPALTE();DATUM($A$1;SPALTE();ZEILE()-2);"")
wobei in A1 das aktuelle Jahr steht. Diese Formel kann man leicht ziehen und somit schnell einen ganzen Kalender erstellen.
Irgendwann soll aber auch diese Formel durch VB ersetzt werden, wenn das geht. Vielleicht könnte man sich das andere Problem sparen, wenn man zuerst du Formel auf VB Basis erstellt.
Falls du noch Fragen hast, melde Dich. Danke dir schon mal.
Gruß Michi
wenn es VBA sein muss würde ich nicht die Formeln in die Zellen schreiben sondern direkt das Datum. Schau dir das mal an:
Gruß
Peter
Vielen Dank und schönen Tag noch
Gruß Michi