habe vorhin die Formel von Christian erhalten:
=SUMMENPRODUKT((MONAT(K6:K64490)=6)*1)
Nin habe ich die Formel aufgezeichnet und wollte mit einer Inputbox den Monat verändern.
Dim mon
mon = 6
ActiveSheet.Range("E3").Select
Hier sollte die Eingabebox stehen:
ActiveCell.FormulaR1C1 = "=SUMPRODUCT((MONTH(R[3]C[6]:R[64487]C[6])=7)*1)"
anstelle der 7 z.b.8 oder 9 etc. klappt bei mir nicht.
mfg Walter