Woran kann es liegen wenn " DateSerial(Year(Date), Month(Date), 0)" den Monat Juli liefert?
Beim Systemdatum wird richtiges (aktuelles) Datum angezeigt.
Gruss
Lorenz
DateSerial(Year(Date), Month(Date) + 1, 0)
Hilfts?
WorksheetFunction.EoMonth(Date, 0)
Gruß Gerd