AW: Du bist schon Klasse...
08.03.2007 13:20:00
Erich
Hi Walter,
einwandfrei wars nicht:
Excel muss man nicht immer bis Zeile 65535 rechnen lassen, wenn in T viel weniger Zellen belegt sind.
Option Explicit
Sub AnzAktMonat()
Dim lngL As Long
lngL = Cells(Rows.Count, 20).End(xlUp).Row
Cells(4, 4) = Evaluate("SUM(1*(MONTH(T1:T" & lngL & ")=" & Month(Date) & "))")
'oder
Cells(5, 4).FormulaArray = "=SUM(1*(MONTH(R1C20:R" & lngL & "C20)=MONTH(TODAY())))"
'Cells(5, 4) = Cells(4, 4).Value
' für Monat in T <= ak.t Monat:
Cells(6, 4) = Evaluate("SUM(ISNUMBER(T1:T" & lngL & _
")*(MONTH(T1:T" & lngL & ")<=" & Month(Date) & "))")
'oder
Cells(7, 4).FormulaArray = "=SUM(ISNUMBER(R1C20:R" & lngL & _
"C20)*(MONTH(R1C20:R" & lngL & "C20)<=MONTH(TODAY())))"
Cells(7, 4) = Cells(7, 4).Value
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort