Hi Alfie,
Schau dir doch einmal diese Nachricht in der Excel Discussion Group an.
Vielleicht später mal ;-)
Aus dem 29.1.2005 wird der 29.2.2005, dieses Datum gibt es nicht. In seiner unendlichen Weisheit verwendet Excel daher ein 'plausibles' Monat - und das ist der März ;-)
Ja, das aber inkonsequent.
Ich habe mal auf die Schnelle was gebastelt, das aber nur eine Grundlage sein kann:
Function xyz(x As Date) As Date
Application.Volatile
a = Day(x): b = Month(x): c = Year(x)
If b = 12 Then
b = 1: c = c + 1
Else
b = b + 1
End If
d = CDate(a & "." & b & "." & c)
If Year(d) > Year(x) + 1 Then xyz = "" Else xyz = d
End Function
Das ist aber ungetestet und müßte noch etwas verfeinert werden.
In die Zelle könnte man dann z. B. schreiben:
=WENN(ISTFEHLER(xyz(A2));"";xyz(A2))
Oder so ähnlich.
Viele Grüße
Jörg