VBA: Datumswerte mit Countif
13.02.2007 13:43:34
Düppi
ich habe das Blatt "Redaktionen". Darin stehen ab Zelle A4 Datumswerte im Format "dd.mm." Ich möchte nun errechnen lassen, wiel viele Januar-Tage die Liste führt, wieviele Februrar-Tage etc. Wir arbeiten nicht an allen Tage, daher ist die Zahl mit mit den realen Monats-Tagen (Januar = 31, Februar = 28) identisch. So siehts im Sheet aus:
Spalte A
01.01.
02.01.
...
30.01.
31.01.
01.02.
...
31.12.
Hier mein Code:
Sub Zaehler()
Dim lz As Long
lz = Sheets("Redaktionen").Range("A65536").End(xlUp).Row
Set Suchbereich = Worksheets("Redaktionen").Range("A4:A" & lz)
Dim anz_janu, anz_febr, anz_marz As Integer
Dim Januar1, Februar1, Maerz1, April1 As Date
Januar1 = "01.01."
Februar1 = "01.02."
Maerz1 = "01.03."
April1 = "01.04."
anz_janu = Application.WorksheetFunction.CountIf(Suchbereich, "<=" & Maerz1)
End Sub
Hier mein Problem: Im (verkürzten) Beispiel soll die Variable anz_janu die Tage kleiner/gleich 01.03. lierfern - also die Summe alle Januar- und alle Februar-Tage. Tut sie aber nicht.
Wer kann meinen Code korrigieren, fragt Düppi?