Hallo Frieder,
du hast es doch so gewollt!
' Ist Zellwert ein Datum?
If IsDate(cell.Value) Then
' Ist das Datum des Zellwertes größer als der 01.01.20xx !!!!!!!!!!!!!!!!!!
If (DateSerial(jahr, 1, 1) < cell.Value Then
' Ist das Datum des Zellwertes kleiner als der 31.12.20xx ODER
' ist das Datum des zellwertes größer als der 01.01.(20xx + 1) ???
If DateSerial(jahr, 12, 31) > cell.Value Or DateSerial(jahr + 1, 1, 1) < cell.Value Then
' Ist das Datum des Zellwertes kleiner als der 31.12.(20xx + 1)
If DateSerial(jahr + 1, 12, 31) > cell.Value) Then
Dein Datum soll größer als der 01.01. des Jahres sein!
Ein Tipp am Rande: Benutze nicht zu viele AND's und ODER macht erstens das Programm nicht schneller (im Gegenteil) und es wird auch nicht lesbarer, zudem ist die ODER Bedingung mir nicht ganz klar: Du willst alle Daten vor dem 31.12.xx und alle Daten nach dem 01.01.yy, warum die zwei Tage nicht?
Gruß Detlev
PS: ich will es wirklich nicht besser wissen, korrigiere mich bitte ; )
|