0160-93 82 19 37 | Nehmen Sie 
Anzahl Tage bis zum Jahresende ermitteln
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
