WorksheetFunction.CountA(...)
26.03.2015 16:18:30
Frederik
Ich versuche mittels der untenstehenden Formel die Anzahl der gefüllten bzw. non-Blank Zellen zu ermitteln.
Dim TodayD As Integer, TodayM As Integer, Workdays As Integer
TodayD = DatePart("d", Date)
TodayM = DatePart("m", Date)
Sheets("Database").Activate
Workdays = WorksheetFunction.CountA(Range(Cells(TodayM + 4, 1), Cells(TodayM + 4, 31)))
TodayD und -M geben jeweils Tag und Monat in Zahlenform aus.
Der Bereich A7:AE7 sollte in diesem Fall nach gefüllten Zellen durchsucht werden.
Leider wird mir durch Debug.Print immer nur 2 ausgegeben.
Ich habe schon mit Range() und Cells() rumgespielt. Aber auf den richtigen Wert kam ich nie - sollte 21 sein.
Was mache ich hier falsch?
Danke!
Fred