|
Hallo Leute!
Poste jetzt zum ersten Mal etwas, also bitte ich schon einmal vorab um Entschuldigung, wenn ich hier irgendwie falsch poste (falscher Ort usw.)
Bin gerade an einem Markro was welches mehrer Dinge für mich machen soll. Dabei hänge ich leider an einer Stelle und komme seit einem Tag nicht weiter.
Hier also dieses kleine Problemchen, separiert ;-)
In einer Spalte sind verschiedene Datumeinträge gemäß Bsp. 12.04.2012, gegeben. Es sollen nun z.b alle Einträge gezählt werden, wenn sie den gleichen Monat und Jahr des Suchdatums aufweisen.
Bsp.:
(Zellen A1:A5)
01.04.2011
02.04.2011
01.05.2012
06.04.2011
20.09.2012
Suchdatum ist April 2011 (Zelle C1) Ergebnis wäre somit 3
In Excelformel ausgedrück sicht das ganze so aus und funktioniert auch:
=SUMMENPRODUKT((MONAT(A1:A5)=MONAT(C1))*(JAHR(A1:A5)=JAHR(C1)))
Wenn ich das ganze nun in VBA nachstellen möchte sollte es so aussehen, funktioniert jedoch nicht:
Cells(3, 5) = Application.WorksheetFunction.SumProduct((Month(Range(Cells(1, 1), Cells(1, 5))) = Month(Cells(1, 3))) * (Year(Range(Cells(1, 1), Cells(1, 5))) = Year(Cells(1, 3))))
Igrnedwas funktioniert da mit der Typverträglichkeit nicht. Das Problem muss sich an der Stelle abspielen, bei der ein Monat bzw. Jahr aus einer Range rausgegriffen werden muss. Aber ich bekomme es leider nicht hin.
Kann hier jemand von euch helfen???
Eins nur vorab. Sagt mir bitte nicht, dass ich notfalls die Fomel in die Zelle kopieren, den Wert übergeben und neu einspeichern soll. Ja das geht aber ich möchte es "sauber" haben ;-)
Ich wäre sehr froh über eure Ideen. Vielen Dank!
|