VBA Code bei Schaltjahr

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe Experten,

Ich habe folgenden Code in meinem Projekt:

With Sheets("Haupt")
 For lngRow = 3 To Day(DateSerial(Year(Now), Month(.Range("H1")) + 1, -1)) + 3
 If .Cells(lngRow, 17) = "" Then .Cells(lngRow, 17) = 0

Im Feld H1 habe ich den aktuellen Monat als MMMM JJ definiert.
Nun soll es in der 17. Spalte ab Zeile 3 soviele Nullen auffüllen wie der Monat Tage hat, aber nur in den Zellen die noch leer sind.
Dies funktioniert einwandfrei. Aber nächstes Jahr ist ein Schaltjahr, somit hat der Februar 29 Tage. Aber mit diesem Code wird das Schaltjahr nicht berücksichtigt… D.h. es füllt im Februar die Nullen nur bis zum 28. tag auf anstatt bis zum 29.
Gibt es eine Möglichkeit das Schaltjahr (speziell den Februar 2012) im Code zu berücksichtigen?

Liebe Grüsse
Sascha

#2

Moin, Sascha,

Aber mit diesem Code wird das Schaltjahr nicht berücksichtigt.

wer sagt das? Schreib mal 2012 anstatt Year(now), dann erscheint der Februar mit 29 Tagen.

Gruß Ralf

#3

Hallo Ralf,

Aber mit diesem Code wird das Schaltjahr nicht berücksichtigt.

wer sagt das? Schreib mal 2012 anstatt Year(now), dann
erscheint der Februar mit 29 Tagen.

Ah ich verstehe… d.h. wenn dann „wirklich“ das Jahr 2012 ist, funktioniert der Code…

-))

Vielen lieben Dank

Sascha