Hallo Andreas,
die (hier nicht angezeigte aber automatisch hinterlegte) .Value Eigenschaft des Range-Objekts deiner Schleife erkennt ob es sich beim Auslesen aus der Zelle um eine Zahl, Text oder ein Datum handelt. Daher funktioniert deine Schleife.
So schlau ist die CountIf Funktion leider nicht. Die sucht stur nach Text welchen Sie nicht findet, da du ja ein rechnerisches Datum (also ein Zahlenformat) hinterlegt hast.
Ändere deine Funktion wie folgt
lngAnzL = Application.CountIf(Range(Cells(3, 27), Cells(lastrow, 27)), CDate("31.12.2015"))
Gruß Mr. K.
