Share this
Twitter
Myspace
Mister Wong
Yigg
Newsider
Newskick
Power-Oldie
Favoriten
Linksilo
Linkarena
Digg
Del.icio.us
Reddit
Furl
Yahoo
Technorati
Googlize this
Wikio
Print
E-mail
100016
In Zelle A1 muss ein Datum im Format 01.01.2002 stehen. Anhand dieses Datums
wird die Anzahl der Tage bis zum Jahresende ermittelt.
Schaltjahre werden dabei berücksichtigt.
Alternativ kann das Makro natürlich angepasst werden, dass das Datum z. B.
über eine InputBox erfasst wird oder ähnliches.
Public Sub anz_tage_bis_jahresende()
datum = Sheets(1).Range("A1").Value
jahr = Right(Range("A1"), 4)
tage = (DateDiff("d", "31.12." & jahr, Range("A1"))) * -1
MsgBox "Es sind noch " & tage & " Tage bis zum 31.12." & jahr
End Sub