Monatsende
12.05.2005 18:06:53
Bodo
Als konkrete Formel in einer Zelle funktioniert das auch.
With Selection
.Value = DateSerial(Year(dte), Month(dte), Day(Monatsende(dte, 0)))
End With
(Selection enthält ein vorher in dte abgelegtes Datum)